der Code:
Private Sub CommandButton2_Click()
Dim wks As Worksheet
Dim icounter As Integer, iColumns As Integer, iRowz As Integer, iColumnl As Integer
Dim iRowT As Integer, iRow As Integer, iRowL As Integer
Set wks = Worksheets("Messung 1")
iColumnl = Cells(1, Columns.Count).End(xlUp).Column
For iColumns = 1 To iColumnl
a = "PMAX1"
If Cells(1, iColumns).Value = a Then
iRowL = Cells(Rows.Count, iColumns).End(xlUp).Row
For iRowz = 1 To iRowL
If Cells(iRowz, 1).Value = "1" Then
iRowT = wks.Cells(Rows.Count, iColumns).End(xlUp) + 1
Columns(iColumns).Copy wks.Columns(iRowT)
MsgBox ("Hi")
End If
Next iRowz
End If
Application.CutCopyMode = False
Next iColumns
End Sub
Warum kopiert er die ganze Spalte und nicht nur die zeilen der Spalte"PMAX1" mit dem Wert 1 in Spalte 1?
Helft mir bitte!
Mfg david