test
24.02.2015 19:20:36
Joachim
in diesem Modul werden alle Tabellenblätter ab dem 4.Blatt ausgelesen
und die Daten ab Zeile 6 in das 1. Tabellenblatt Zusammenfassung übertragen.
Es funktioniert auch, aber die Daten werden dann überschrieben. Es fehlt wohl
die end.xl.row Funktion? Ferner sollte das letzte Tabellenblatt nicht ausgelesen
werden. Es soll auch nur ausgelesen werden, wenn in der Zelle (zeile 6,Spalte 3, usw)
eine Zahl zwischen 1 - 25 steht. Vielen Dank für die Hilfe.
Sub DatenAufZielTabelleÜbertragen()
Dim Tabzu As Worksheet
Dim i As Integer
Dim i_Blatt As Integer
Dim i_Spalte As Integer
Dim i_Zeile As Integer
Set Tabzu = Sheets("Zusammenfassung")
i = 2
For i_Blatt = 4 To ActiveWorkbook.Worksheets.Count
For i_Zeile = 6 To Sheets(i_Blatt).UsedRange.Rows.Count
For i_Spalte = 3 To Sheets(i_Blatt).UsedRange.Columns.Count
Tabzu.Cells(i_Zeile, i_Spalte).Value = Sheets(i_Blatt).Cells(i_Zeile, i_Spalte).Value
Next i_Spalte
i = i + 1
Next i_Zeile
i = i + 1
Next i_Blatt
End Sub