AW: Welche Frage
26.06.2007 11:27:27
Christian
Hallo Hajo,
nett, dass Du Dich meldest.
Folgendes Problem:
Ich habe eine Datei mit ca. 15 Blättern. Das erste Blatt lautet "Stornos Gesamt". In dieses Blatt werden sämmtliche Zeilen über eine UserForm (ab Zeile B7) gefüllt. Die Spalte B enthält die Bereichsnr. z.B. 853 oder 856 usw.
Mein Ziel ist es eine Schleife zu basteln, die die einzelnen Zeilen aus der Tabelle "Stornos Gesamt" in die jeweiligen Tabellenblätter mit Namen "853", "856"... (ab Zeile B7) kopiert. Wir hatten schon folgendes, doch leider funktioniert das nur für das Tabellenblatt "853" und läßt sich nicht erweitern auf die folgenden Bätter
Private Sub CommandButton2_Click()
' erstellt von Hajo.Ziplies@web.de 13.06.07
Dim Found As Range
Dim FirstAddress As String
Dim LoLetzte As Long
Dim LoI As Long
Dim ByMldg As Byte
With Worksheets("853")
' unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count) + 1
If LoLetzte