Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

selectieren dynamisch

Forumthread: selectieren dynamisch

selectieren dynamisch
06.07.2006 06:41:47
Giuseppe
hallo Freunde, Gute morgen
ich schaffe allein nicht und brauche eure Hilfe:
ich möchte der Code so ändern, dass statt AS2500 letze benutze zelle in AS selectiert wird. Wie mache ich das?
Hier der Code:

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
ListBox1.Visible = True
ListBox1.RowSource = ("A3:AS2500")' Die Tabelle heißt "Database"
Dim f As Integer, l As Integer
For f = 27 To 45
Controls("TextBox" & f).Visible = False
Next
For f = 27 To 45
Controls("Label" & f).Visible = False
Next
Label41.Visible = True
TextBox41.Visible = True
Label43.Visible = True
TextBox43.Visible = True
Else
ListBox1.Visible = False
ListBox1.RowSource = ("")
For f = 27 To 45
Controls("TextBox" & f).Visible = True
Next
For f = 27 To 45
Controls("Label" & f).Visible = True
Next
End If
End Sub

Danke
Giuseppe
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: selectieren dynamisch
06.07.2006 07:01:23
Mustafa
Hallo Giuseppe,
so sollte es Funktionieren:

Private Sub ToggleButton1_Click()
Dim lngLetzte as Long
If ToggleButton1.Value = False Then
ListBox1.Visible = True
lngLetzte = Range("AS65536").End(xlUp)
ListBox1.RowSource = ("A3:AS"&lngLetzte)' Die Tabelle heißt "Database"
Dim f As Integer, l As Integer
For f = 27 To 45
Controls("TextBox" & f).Visible = False
Controls("Label" & f).Visible = False
Next
Label41.Visible = True
TextBox41.Visible = True
Label43.Visible = True
TextBox43.Visible = True
Else
ListBox1.Visible = False
ListBox1.RowSource = ("")
For f = 27 To 45
Controls("TextBox" & f).Visible = True
Controls("Label" & f).Visible = True
Next
End If
End Sub

Ich habe auch ein bisschen deinen Code gesäubert.
Ich habe jeweils die 2. For Next schleife Rausgenommen weil die unnötig Zeit in Anspruch nimmt.
Es geht auch ohne.
Rückmeldung wäre nett.
Viele Grüße aus Köln.
Anzeige
AW: selectieren dynamisch
06.07.2006 08:30:33
Giuseppe
DANKE!
es funktioniert
Ciao
Giuseppe
Gern geschehen owT
06.07.2006 09:15:33
Mustafa
;

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