Fehlersuche in Makro
Mister
folgendes Makro habe ich aus dem Forum:
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
'On Error Resume Next
Dim Text As String
Dim i As Long
Dim x As Long
x = Sheets("PNS").Cells(65536, 8).End(xlUp).Row
For i = 3 To x
If ComboBox1.Value = Worksheets("PNS").Cells(i, 8).Text Then
Me.TextBox3.Value = Sheets("PNS").Cells(i, 4)
Me.TextBox4.Value = Sheets("PNS").Cells(i, 5)
Me.TextBox5.Value = Sheets("PNS").Cells(i, 6)
Me.TextBox6.Value = Sheets("PNS").Cells(i, 7)
Exit Sub
End If
If ComboBox1.Value Sheets("PNS").Cells(i, 8) Then
Text = "Der Teilnehmer " & ComboBox1.Value & " konnte nicht gefunden werden"
MsgBox Text, vbExclamation, "PNS"
End If
Next
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Set sh = ActiveSheet
For Each v In sh.Range("H:H")
If v "" Then
ComboBox1.AddItem v
End If
Next
ComboBox1.SetFocus
End Sub
Bei mir funktioniert dieses Makro nur bedingt. Wenn ich einen Eintrag aus ComboBox1 auswähle, erhalte ich immer die Meldung, dass der Teilnehmer nicht gefunden werden kann (auch wenn er in der Tabelle vorkommt). Wenn ich diese Meldung mit OK schließe, läuft das Makro wie es eigentlich sein soll. Ich sehe keinen Grund warum es nicht funktioniert. Fällt irgendjemandem was daran auf?
Danke und Gruß
Martin