Hi Leute!
Wie muss ich das folgende Makro umschreiben damit er statt jede Zeile die in Spalte A eine "1" enthält, jede Spalte die in Zeile 1 eine "1" enthält kopiert?
Bitte helft mir!
Dim wks As Worksheet
Dim irow As Integer, irowl As Integer, irowt As Integer
Set wks = Worksheets("Messung 1")
irowl = Cells(Rows.Count, 1).End(xlUp).Row
For irow = 1 To irowl
If InStr(Cells(irow, 1).Value, "1") Then
irowt = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(irow).Copy wks.Rows(irowt)
End If
Next irow
Application.CutCopyMode = False
mfg David