Hi!
Ich möchte aus einer Excel-Datei mit einem CommandButton Werte (Spalte B bis F) aus allen Tabellenblättern außer "Monatg" und "Dienstag" in ein bestimmtes Blatt genannt "Test" untereinander kopieren.
Ich habe dazu unten stehenden Code, der macht aber noch nicht ganz genau das, was ich will. Dieser Code kopiert Spalte B bis F in mein Zielblatt "Test" ab Zeile 8, von allen Blättern, außer "Montag" und "Dienstag".
Ich hätte zusätzlich noch gerne, dass nur die Zeilen aus allen Blättern kopiert werden, die in Spalte B mit "K" anfangen.
Es soll also noch eine Einschränkung auf Spalte B geben, die nur die Zeilen kopiert, die in Spalte B mit "K" anfangen.
Hier der Code:
Sub CommandButton1_Click()
Dim Zeile As Long, Spalte As Long, a As Long
Application.ScreenUpdating = False
a = 8
Set wks = Worksheets("Test")
For Each ws In Worksheets
If ws.Name <> "Montag" And ws.Name <> "Dienstag" And ws.Name <> "Test" Then
For Zeile = 2 To ws.UsedRange.Rows.Count
If Left(ws.Cells(Zeile, 2), 1) = "K" Then
For Spalte = 2 To 6
If ws.Cells(Zeile, Spalte) > 0 Then
wks.Cells(a, Spalte) = ws.Cells(Zeile, Spalte)
End If
Next Spalte
End If
a = wks.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1
Next Zeile
End If
Next ws
MsgBox "Fertig"
End Sub
|