Tabellenblatt öffnen

Question

Hallo,

ich habe 5 Tabellen..

Tabelle01 bis Tabelle05. Tabelle01(Weber), Tabelle02(Müller) usw..
ich möchte aus Tabelle01 bis Tabelle05 immer die Zelle F7 in die Tabelle00 in Spalte A3 untereinander kopieren..
Geht das mit einer schleife? oder muss ich den VBA befehl 5 mal schreiben und die Tabellennamen jeweils ersetzen?

Danke..

Answer 1

sourceCell = "F7"
targetSheet = "Tabelle00"
targetCol = "A"
targetRow = 3
sourceSheet = ""
For i = 1 To 3
sourceSheet = "Tabelle" & i
Sheets(sourceSheet).Select
Range(sourceCell).Select
Selection.Copy
Sheets(targetSheet).Select
Range(targetCol & targetRow).Select
ActiveSheet.Paste
targetRow = targetRow + 1
Next

oder, wenn sich bei den namen der blätter mehr als nur die zahl ändert:

sourceCell = "F7"
targetSheet = "Tabelle4"
targetCol = "A"
targetRow = 3
tabs = Array("Tabelle1_xyz", "Tabelle2_abc", "Tabelle3_blabla")
sourceSheet = ""
For i = 1 To 3
sourceSheet = tabs(i - 1)
Sheets(sourceSheet).Select
Range(sourceCell).Select
Selection.Copy
Sheets(targetSheet).Select
Range(targetCol & targetRow).Select
ActiveSheet.Paste
targetRow = targetRow + 1
Next

Answer 2

hi kicia :-)

kein modul zu sehen,keine deklarationen, und zu viele selectionen

gruss nighty