Bestimmte Zelle in anderes Blatt übernehmen!
10.07.2003 16:09:29
Chris
ich habe es vorhin schon einmal versucht! Und zwar mit folgendem Problem!
Ich habe eine Datei mit x-Blättern! Wenn ich jetzt in das Blatt "Datenblatt" In Zelle "G1" was eintrage, dann möchte ich nur, dass er mir in die das Tabellenblatt "Tabelle3" den Wert in Zelle "A1" übernimmt!
Mein Makro sieht jetzt folgendermaßen aus:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$G$3" Then
For Each sheet In Worksheets
If sheet.Name <> "Datenblatt" And _
sheet.Name <> "Tabelle1" And _
sheet.Name <> "Tabelle2" And _
sheet.Name <> "Tabelle50" Then
sheet.Range("A1") = Sheets("Datenblatt").Range("G3")
End If
Next
End If
End Sub
Jetzt meine Frage:
Kann ich das Makro so umstellen, dass ich nicht immer die ganzen Tabellen ausschließen muss!? Sondern direkt die "Tabelle3" zuweise?
Danke für Eure Hilfe!
LG Chris
Anzeige