Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon timodeere vom 28.08.2020, 15:08 Options
Makro reagiert nicht auf eingefügte Zellen?!
Hallo ich habe folgendes Makro in meiner Tabelle.
Es funktioniert wenn ich den jeweiligen Buchstaben (U,k,usw.) in die Tabelle eintrage... aber wenn ich aus einer bestehenden Tabelle heraus die Buchstaben kopiere und in meine Tabelle mit dem makro einfüge, dann reagiert das makro darauf nicht..... und markiert sie nicht. Geht das irgendwie, dass das Makro automatisch auf diese eingefügten Zellen reagiert?
Wenn ja, wie? :-) Vielen Dank schon mal!
und VG, timo
PS: bedingte Formatierung scheidet aus da ich mehr als 3 Bedingungen brauche
Das Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "U"
Target.Interior.ColorIndex = 4 'Grün
Case "K"
Target.Interior.ColorIndex = 3 'Rot
Case "X"
Target.Interior.ColorIndex = 6 'Gelb
Case "SU"
Target.Interior.ColorIndex = 7 'Margenta
Case "AltU"
Target.Interior.ColorIndex = 45 'Beige
Case "S"
Target.Interior.ColorIndex = 39 'Lila
Case "F"
Target.Interior.ColorIndex = 33 'Hellblau
Case "u"
Target.Interior.ColorIndex = 4 'Grün
Case "k"
Target.Interior.ColorIndex = 3 'Rot
Case "x"
Target.Interior.ColorIndex = 6 'Gelb
Case "su"
Target.Interior.ColorIndex = 7 'Margenta
Case "altu"
Target.Interior.ColorIndex = 45 'Beige
Case "s"
Target.Interior.ColorIndex = 39 'Lila
Case "f"
Target.Interior.ColorIndex = 33 'Hellblau
Case ""
Target.Interior.ColorIndex = 0
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Es funktioniert wenn ich den jeweiligen Buchstaben (U,k,usw.) in die Tabelle eintrage... aber wenn ich aus einer bestehenden Tabelle heraus die Buchstaben kopiere und in meine Tabelle mit dem makro einfüge, dann reagiert das makro darauf nicht..... und markiert sie nicht. Geht das irgendwie, dass das Makro automatisch auf diese eingefügten Zellen reagiert?
Wenn ja, wie? :-) Vielen Dank schon mal!
und VG, timo
PS: bedingte Formatierung scheidet aus da ich mehr als 3 Bedingungen brauche
Das Makro:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "U"
Target.Interior.ColorIndex = 4 'Grün
Case "K"
Target.Interior.ColorIndex = 3 'Rot
Case "X"
Target.Interior.ColorIndex = 6 'Gelb
Case "SU"
Target.Interior.ColorIndex = 7 'Margenta
Case "AltU"
Target.Interior.ColorIndex = 45 'Beige
Case "S"
Target.Interior.ColorIndex = 39 'Lila
Case "F"
Target.Interior.ColorIndex = 33 'Hellblau
Case "u"
Target.Interior.ColorIndex = 4 'Grün
Case "k"
Target.Interior.ColorIndex = 3 'Rot
Case "x"
Target.Interior.ColorIndex = 6 'Gelb
Case "su"
Target.Interior.ColorIndex = 7 'Margenta
Case "altu"
Target.Interior.ColorIndex = 45 'Beige
Case "s"
Target.Interior.ColorIndex = 39 'Lila
Case "f"
Target.Interior.ColorIndex = 33 'Hellblau
Case ""
Target.Interior.ColorIndex = 0
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Antwort 1 von Saarbauer vom 28.08.2020, 15:49 Options
Hallo,
warum ein neuer Thread, gehört doch zusammen
http://www.supportnet.de/threads/2147179
Gruß
Helmut
warum ein neuer Thread, gehört doch zusammen
http://www.supportnet.de/threads/2147179
Gruß
Helmut
Antwort 2 von coros vom 29.08.2020, 05:43 Options
Hallo timodeere,
das sollte auch beim Kopieren und Einfügen funktionieren. Das Problem scheint woanders in Deiner Datei zu liegen. Um dazu aber etwas zu sagen, benötigt man Deine Datei. Daher müsstest Du Deine Datei mal zum Download, z.B. bei www.netupload.de , ins Netz stellen, damit man sich das an Deiner Datei ansehen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
das sollte auch beim Kopieren und Einfügen funktionieren. Das Problem scheint woanders in Deiner Datei zu liegen. Um dazu aber etwas zu sagen, benötigt man Deine Datei. Daher müsstest Du Deine Datei mal zum Download, z.B. bei www.netupload.de , ins Netz stellen, damit man sich das an Deiner Datei ansehen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 3 von timodeere vom 29.08.2020, 08:01 Options
Hallo,
vielen Dank für die Nachricht.
http://www.speedshare.org/download.php?id=3CC0918F13
Habe die Datei dort hochgeladen.
Was mir noch aufgefallen ist: Wenn ich mehrere Zellen markiere und auf ENTF drücke, kommt der Runtime Error 13 type mismatch. Vielleicht hat das ja etwas damit zu tun.
Für jede hilfe bin ich sehr dankbar!
VG timo
vielen Dank für die Nachricht.
http://www.speedshare.org/download.php?id=3CC0918F13
Habe die Datei dort hochgeladen.
Was mir noch aufgefallen ist: Wenn ich mehrere Zellen markiere und auf ENTF drücke, kommt der Runtime Error 13 type mismatch. Vielleicht hat das ja etwas damit zu tun.
Für jede hilfe bin ich sehr dankbar!
VG timo
Antwort 4 von coros vom 29.08.2020, 08:08 Options
Hallo timo,
bei mir funktioniert Deine Datei ohne Probleme. egal ob ich etwas aus der Datei oder einer ganz anderen Datei kopiere. Wenn es der Case-Anweisung etntspricht, wird die entsprechende Zelle geändert. Warum das bei Dir nicht funktioniert, kann ich mir im Moment nicht erklären.
Um den Fehler nicht beim Löschen von mehreren Zellen zu bekommen, musst Du am Anfang Deines Codes die Zeile
einfügen. Die verhindert das.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
bei mir funktioniert Deine Datei ohne Probleme. egal ob ich etwas aus der Datei oder einer ganz anderen Datei kopiere. Wenn es der Case-Anweisung etntspricht, wird die entsprechende Zelle geändert. Warum das bei Dir nicht funktioniert, kann ich mir im Moment nicht erklären.
Um den Fehler nicht beim Löschen von mehreren Zellen zu bekommen, musst Du am Anfang Deines Codes die Zeile
If Target.Count > 1 Then Exit Subeinfügen. Die verhindert das.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Makro zum anfügen einer 0 vor Werte/Zellen
neop 17.12.2007 - 82 Hits - 4 Antworten
Zellen per Makro verschieben
fufufu 08.02.2008 - 48 Hits - 3 Antworten
Zellen mit Makro einfärben
Chrissi78 04.03.2008 - 109 Hits - 2 Antworten
Makro-bestimmt Zellen löschen
musiker021 06.05.2008 - 87 Hits - 3 Antworten
Zellen mittels Makro verketten
niggie 26.06.2008 - 98 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
