ich steh an und brauch eure Hilfe.
In einem Sheet stehen in einer Spalte (Haupt-) Daten, diese sind in einer UF in einer ComboBox auswählbar. In der Spalte daneben Informationen (wie zB Homepages, Speicherorte, etc.). Über die Hauptdaten im UF (als Label) lese ich die restlichen Infos über eine Schleife aus und über einen CommandButton sind diese dann abrufbar. Funktioniert auch - allerdings sind nicht immer alle Zellen gefüllt und damit, zB bei einem Link, öffnet sich ein leerer Tab - das ist auf Dauer nervig. Wie erreiche ich, dass in meiner Schleife leere Zellen quasi "ignoriert" werden (möglicherweie geht noch eine MsgBox auf mit "keine Daten vorhanden")?
Hier mal ein Teil vom Code:
Private Sub News_Click()
Dim f As Long
With UserForm1.Label1
For f = 2 To 100
If UserForm1.Label1.Caption = Sheets("Tabelle1").Cells(f, 2) Then
ActiveWorkbook.FollowHyperlink Address:="http://" & Worksheets("Tabelle1").Cells(f, 4)
End If
Next
End With
End Sub
Beispiel hängt auch an.
Vielen Dank im Voraus und
LG Markus
https://www.herber.de/bbs/user/166882.xlsm