Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Labels abfragen

Forumthread: Labels abfragen

Labels abfragen
11.05.2017 14:01:41
Ludicla
Hallo Profis,
ich habe eine UF in der ich ein Label frage.
Ich benenne das Label aus einer Liste.
wie erreiche ich es, dass bei einem Click der Name
aus der nächsten Zeile ausgelesen wird.
z.B. vorher Spalte A Zeile eins- Danach Spalte A Zeile zwei usw.
Gruss Ludicla
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Labels abfragen
11.05.2017 15:02:31
ChrisL
Hi
Erstelle ein Label2, welches Höhe und Breite = 0 hat und somit unsichtbar ist. Weise dem Label2 die Caption 0 (null) zu.
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
If CLng(Label2) = 0 Or CLng(Label2) = .Cells(Rows.Count, 1).End(xlUp).Row Then
Label1 = .Range("A1")
Label2 = 1
Else
Label1 = .Cells(CLng(Label2) + 1, 1)
Label2 = CLng(Label2) + 1
End If
End With
End Sub

cu
Chris
Anzeige
AW: Labels abfragen
11.05.2017 15:17:29
fcs
Hallo Ludicla,
das kann man etwa wie folgt lösen.
LG
Franz 
'Code im Userorm
Private Sub Label1_Click()
Dim Zeile As Long
With Me.Label1
Zeile = Val(.Tag) + 1 ' nächste Zeile für Anzeige
.Tag = Zeile ' Wert in Tag-Eigenschaft merken
.Caption = ActiveSheet.Cells(Zeile, 1)
End With
End Sub
Private Sub UserForm_Initialize()
'Startwert/Zeile für Label setzen
With Me.Label1
Zeile = 1 ' Startzeile für Anzeige oder auch = Activecell.Row wenn variabler  _
Zeilenstart
.Tag = Zeile ' Wert in Tag-Eigenschaft merken
.Caption = ActiveSheet.Cells(Zeile, 1)
End With
End Sub

Anzeige
AW: Labels abfragen
15.05.2017 13:00:47
Ludicla
Hey fcs
Danke für die Hilfe
werde mit erst morgen damit auseinandersetzen können.
Gruss Ludicla.
AW: Labels abfragen
16.05.2017 07:24:07
Ludicla
Hallo fcs,
hab deinen Tip probiert - klappt hervorragend
Gruss ein dankbarere Ludicla
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige