Fehler!!!!!
27.07.2004 12:56:46
david
Hier einmal mein Code:
Private Sub CommandButton2_Click()
Dim wks As Worksheet
Dim irow As Integer, irowl As Integer, irowt As Integer
Set wks = Worksheets("Tabelle 2")
irowl = Cells(Columns.Count, 1).End(xlDown).Column
For irow = 1 To irowl
If InStr(Cells(irow, 1).Value, "1") Then
irowt = wks.Cells(Rows.Count, 1).End(xlUp).Row
Columns(irow).Copy wks.Columns(irowt)
End If
Next irow
Application.CutCopyMode = False
End Sub
Er kopiert nur die erste Spalte die in Zeile 1 den Wert"1" hat in Tabelle 2, warum aber nicht auch die daruffolgenden Spalten?
Wer kann mir helfen?
Vielen Dank im Voraus!
MFG David