Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

CommandButton Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige