Werte aus verschiedenen Tabellenblättern kopieren
08.04.2015 09:36:19
Iris
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 mir 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 nicht nur Zeile 2 bis 4 von jedem Blatt kopiert werden, sondern alle Zeilen in denen etwas steht. Das heißt die Zeilenbeschränkung soll variabel sein.
Außerdem sollen nur die Zeilen aus allen Blättern kopiert werden, die in Spalte B mit "K" anfangen.
Hier der Code:
Private 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 4
For Spalte = 2 To 6
If ws.Cells(Zeile, Spalte) > 0 Then
wks.Cells(a, Spalte) = ws.Cells(Zeile, Spalte)
End If
Next Spalte
a = wks.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1
Next Zeile
End If
Next ws
End Sub