AW: Kopieren aus verschiedenen Tabellenblättern
Beni
Hallo Roland,
ich habe Dir den Code entsprechend geändert.
Der untere Teil ist der gleiche Code mit enspechenden Erklärungen.
Gruss Beni
Sub Kopieren_aus_verschiedenen_Tabellenblättern()
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Bilanz" Then
With Sheets("Bilanz")
lz = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(lz, 1) = Sheets(sh).Cells(4, 3)
.Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub
Sub Kopieren_aus_verschiedenen_Tabellenblättern()
'/// For ist ein Schleife, sie durchläuft alle Sheets, ausser "Bilanz", darum das
' If Sheets(sh).Name <> "Bilanz"
'/// das sh ist eine Variable und wird von 1 bis Anzahl Sheets hochgezählt, das muss
' nicht sh sein, es kann auch Roland sein.
For sh = 1 To Sheets.Count
If Sheets(sh).Name <> "Bilanz" Then
'/// With Sheets("Bilanz") alles was innerhalb With und End With ist und einen Punkt
' vor dem .Cells hat, gehört zu diesem Sheet
With Sheets("Bilanz")
'/// lz ist die letzte Zeile+1 in diesem Sheet
lz = .Cells(65536, 1).End(xlUp).Row + 1
'/// letzte Zeile+1/Spalte1 = den Wert aus dem Sheet mit der Nr. das Excel dem Sheet
' vergeben hat, Zeile4/Spalte3
.Cells(lz, 1) = Sheets(sh).Cells(4, 3)
.Cells(lz, 2) = Sheets(sh).Cells(4, 4)
End With
End If
Next sh
End Sub