Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige