In meiner Arbeitsmappe befinden sich mehrere Erfassungsblätter, alle mit gleichem Aufbau. Gewisse Daten werden in ein Sammelblatt per CommandButton übertragen. Diese zu übertragenden Daten befinden sich in Zeile 100 (A100 bis F100) in Form eines Bezugs, z.B. in Zelle A100 steht =A5.
Mein Makro funktioniert nur, wenn z.B. in Zelle A100 ein absoluter Wert, z.B. 100 steht, steht jedoch anstelle 100 eine Formel z.B. =A5, so funktioniert die Datenübertragung nicht so wie ich mir das wünsche.
Bitte schaut mal mein Makro an, es ist unten aufgeführt und lasst mich wissen, was ich richtig machen muss.
Für Bemühungen danke ich im voraus.
'*** Mehrere Daten aus Tabellenblätter auf ein Sammelblatt übertragen***
Sub Uebertragen()
' Variablendeklaration
Dim intCounter%, intRow%
' Daten ab Zeile 5 einfügen)
intRow = 5
' Schleife ab dem 4. Arbeitsblatt
For intCounter = 4 To Worksheets.Count
' Bereich kopieren
Worksheets(intCounter).Range("A100:F100").Copy
' Daten einfügen
Worksheets("Sammelblatt").Paste _
Destination:=Worksheets("Sammelblatt").Cells(intRow, 1)
' Zeilenzähler hochzählen
intRow = intRow + 2
Next intCounter
End Sub