hallo matthias,
sorry für die späte antwort.
also
wenn ich das makro wie ich das verändert habe
Private Sub UserForm_Initialize()
Dim b As Range, i As Integer
ListBox1.Clear
Set b = Sheets("Tabelle1").Range("A1:H1")
For i = 1 To b.Count
ListBox1.AddItem b(i).Value
Next i
End Sub
benutzen möchte kommt die Fehlermeldung
"Laufzeitfehler"
"Nicht näher bezeichneter Fehler"
gehe ich jetzt auf "debuggen"
zeigt er mir diese zeile als fehler
UserForm2.Show
in folgendem makro durch das ich die userform ( ist die userform2 )aktiviere
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$4:$F$4" Then
UserForm1.Show
End If
If Target.Address = "$E$18:$I$18" Then
UserForm2.Show
End If
If Target.Address = "$K$13:$L$13" Then
Range("C17:M25").Select
Selection.Copy
x = 25
SucheLeer:
If Cells(x, 2).Value = "" Then
Range(Cells(x, 2), Cells(x, 2)).Select
ActiveSheet.Paste
Else
x = x + 1
GoTo SucheLeer
End If
End If
End Sub
wie gesagt ich habe dein makro auf listbox umgeschrieben ( mit einer commbobox funzt er einwandfrei)
ich bin ziemlich am anfang was vba betrifft, ich denke ich mache da noch irgendwo einen fehler bekomme ihn aber ohne hilfe nicht weg.
danke noch einmal für die mühe.
louis