Namen nacheinander in Label anzeigen

Computer: Software & Programmierung Visual Basic
#1

Hallo,

komme mal wieder nicht weiter.

Habe ein Makro, bringe es aber nicht zum laufen.

Es soll die Namen der Mitarbeiter aus einer Liste in der Tabelle3 mit Namen"Daten" in einem Label der geladenen Userform anzeigen. Wenn ich dann „ok“ drücke den nächsten Namen anzeigen bis Zellen leer sind, quasi die Mitarbeiter alle durch sind.

Sub Namenanzeigen()
Dim i As Integer
Dim Found As Boolean
Dim Namen As Worksheet

Set name = Worksheet(„Tabelle3“)

For i = 1 To UBound(Namen, 3)
If CStr(Namen(i, 2)) Then
Found = True
Exit For
End If
Next
If Found Then
Label1.Caption = Namen(i, 3)
Else
Label1.Caption = „“
End If
End Sub

Geht nicht ! Wo hängt es ? :frowning:

Danke !

Alex

#2

Hallo Alex,

Option Explicit
'
Private Sub CommandButton1\_Click()
Static Zei As Long
With Worksheets("Daten")
 Zei = Zei + 1
 If Zei \> .Cells(Rows.Count, 3).End(xlUp).Row Then Zei = 1
 Label1.Caption = .Cells(Zei, 3)
End With
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

funktioniert ! Danke ! Noch zwei Fragen dazu !

Kann man jetzt diese Funktion auch über UserForm_Initialize starten ? Quasi Makro in den Sub UserForm_Initialize umbenennen ? Und zweitens, beim Start steht aber zuerst LABEL da, nur dann wenn ich Button drücke beginnt er mit den Namen ! Kann man das ändern, das es gleich beim ersten Namen beginnt ?

Danke nochmal !

LG Alex

#4

Kann man jetzt diese Funktion auch über UserForm_Initialize
starten ? Quasi Makro in den Sub UserForm_Initialize
umbenennen ? Und zweitens, beim Start steht aber zuerst LABEL
da, nur dann wenn ich Button drücke beginnt er mit den Namen !
Kann man das ändern, das es gleich beim ersten Namen beginnt ?

Hallo Alex,

Option Explicit
Private Zei As Long
'
Private Sub CommandButton1\_Click()
With Worksheets("Daten")
 Zei = Zei + 1
 If Zei \> .Cells(Rows.Count, 3).End(xlUp).Row Then Zei = 1
 Label1.Caption = .Cells(Zei, 3)
End With
End Sub
'
Private Sub UserForm\_Initialize()
CommandButton1\_Click
End Sub

Gruß
Reinhard

#5

Hallo Reinhard,

sorry der späten Antwort !

Mit dem Namen ab 3. Zelle der Spalte hat nicht funktioniert. Habe aber dann die 1. und 2. Zelle gelöscht. Fängt jetzt also mit dem 1. Namen an.
Zwecks UserForm1_Initialize() geht nicht. Es ist ja schonmal in der Userform vorhanden. Hatte es dann dort eingefügt und das Makro dafür umbenannt .

Private Sub NameimLabel()
Static Zei As Long
With Worksheets(„Daten“)
Zei = Zei + 1
If Zei > .Cells(Rows.Count, 1).End(xlUp).Row Then Zei = 1
Label1.Caption = .Cells(Zei, 1)
End With
End Sub

Ist es falsch das Makro NameimLabel bei dem vorhandenen UserForm1_Initialize()einzusetzen ? Weil es startet jetzt nicht !

Oder geht es noch anders ?

LG Alex