select methode fehlerhaft
07.07.2004 10:35:38
rene
ich hoffe jemand weiss rat
ich habe mehrere tabellenblätter die mit monatsnamen versehen sind
auf diesen blättern befinden sich daten aus einer datenbank
nun möchte ich auf einem anderen tabellenblatt mittels kombobox bestimmte daten
heraussuchen und unter die kombobox kopieren lassen
dies soll durch einen button gestartet werden
nun mein problem
jedes mal erscheint der fehler 1004 der mir sagt das die select methode des range objektes fehlerhaft ist.
ich habe leider keine ahnung mehr woran das liegen soll
vielen dank und gruß rene
anbei mein code
Private Sub CommandButton1_Click()
Dim monat As String
Dim fahrzeug As String
Dim i As Integer
Dim t As Integer
monat = ComboBox3.Value
fahrzeug = ComboBox2.Value
t = 9
For i = 2 To 1000
If Worksheets(monat).cells(1, 1).Value = "" Then
MsgBox ("Keine Daten vorhanden!")
Else
If fahrzeug = Worksheets(monat).cells(i, 3).Value Then
If Worksheets("HÖ").cells(t, 1) = "" Then
Worksheets(monat).Activate
Rows(i).Select
Selection.Copy
Worksheets("HÖ").Rows(t).Select
ActiveSheet.Paste
End If
t = t + 1
End If
End If
Next
End Sub