Select geht nicht
06.07.2005 17:50:15
Michael
bei folgendem Programmtext:
Private Sub ComboBox1_Change()
For i = 2 To 1000
Dim linecount As Integer
linecount = 6
If Sheets("Input").Cells(i, "A") = ComboBox1.Value Then
Sheets("Input").Select
Rows(i).Select
Selection.Copy
Sheets("extract").Select
ActiveSheet.Paste
linecount = linecount + 1
Else
i = i + 1
End If
Next i
End Sub
hängt sih das Programm in der Zeile Rows(i).Select auf!
Warum?
Stell ich mich so dämlich an?
Ich möchte eine Zeile von einem Arbeitsblatt in das andere Arbeitsblatt kopieren aber es will absolut nicht gehen.
Viele Grüße und Danke
Micha
Anzeige