Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bestimmte Zelle in anderes Blatt übernehmen!

Bestimmte Zelle in anderes Blatt übernehmen!
10.07.2003 16:09:29
Chris
Hallo zusammen,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zelle in anderes Blatt übernehmen!
10.07.2003 16:31:59
Knut

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$G$3" Then
Sheets("Tabelle3").[a1]=target
End If
End Sub

Knut

Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige