Tabellenkalkulation

Makro reagiert nicht auf eingefügte Zellen?!

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

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

Antwort 1 von Saarbauer

Hallo,

warum ein neuer Thread, gehört doch zusammen

https://supportnet.de/threads/2147179

Gruß

Helmut

Antwort 2 von coros

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.}

Antwort 3 von timodeere

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

Antwort 4 von coros

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

If Target.Count > 1 Then Exit Sub

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.}