Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox

Forumthread: Listbox

Listbox
20.03.2023 15:42:16
Antonio

Hallo liebe Gemeinde,
ich finde leider nichts für mein Vorhaben,
Ich möchte die Item in ein Listbox waagerecht markieren und einlesen, bis ende Zeile, dann nächste Zeile usw.
Egal wie viele Item in einer Zeile sind, wenn keine mehr vorhanden dann nächste Zeile. Multiselect.Single.
Ist sowas möglich?
Wäre für Tipps dankbar.
LG Antonio

Anzeige

43
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox
20.03.2023 16:57:33
Nepumuk
Hallo Antonio,

im Prinzip so:

Private Sub CommandButton1_Click()

    Dim lngRowIndex As Long, lngColumnIndex As Long

    With ListBox1

        For lngRowIndex = .List(.ListIndex) To .ListCount - 1

            For lngColumnIndex = 0 To .ColumnCount - 1

                Debug.Print .List(lngRowIndex, lngColumnIndex)

            Next
        Next
    End With
End Sub
Gruß
Nepumuk


Anzeige
AW: Listbox
20.03.2023 16:59:02
Nepumuk
Oooooooooooops,

da ist noch ein Fehler drin. So natürlich:

Private Sub CommandButton1_Click()

    Dim lngRowIndex As Long, lngColumnIndex As Long

    With ListBox1

        For lngRowIndex = .ListIndex To .ListCount - 1

            For lngColumnIndex = 0 To .ColumnCount - 1

                Debug.Print .List(lngRowIndex, lngColumnIndex)

            Next
        Next
    End With
End Sub
Gruß
Nepumuk


Anzeige
AW: Listbox
20.03.2023 17:31:01
Antonio
Hallo Nepumuk,
dein Code passt, bekomme ich beide Index.
Aber habe mich evtll falsch ausgedruckt (wie immer)
Angenommen ich habe in der Listbox so eine Tabelle eingelesen:

xxx yyy aaa ccc
vvv ddd
sss ggg kkk
aaa

ich möchte angefangen in der erste Zeile einzelne Item nacheinander zu markieren bis ende dann nächste Zeile....
Habe schon probiert aber die Listbox lässt nur die ganze Zeile markieren und nicht wie ein ListView einzelne Item.
Ich hätte gerne die einzelne Item ausgelesen, dies Waagerecht.
Bitte nachfragen wenn undeutkich.
Habe auch in meiner Toolbox nach dem Spreadsheet gesucht, leider nicht drin.
LG Antonio


Anzeige
AW: Listbox
20.03.2023 18:02:22
Nepumuk
Hallo Antonio,

nur in der markierten Zeile? oder wie in der ersten Frage genannt ab der markierten bis zur letzten Zeile?

Gruß
Nepumuk


AW: Listbox
20.03.2023 18:14:16
Antonio
Hallo Nepumuk,
ich versuche es anders, durch Nummerierung:

1 2 3 4
xxx | yyy | aaa | ccc
5 6
vvv | ddd
7 8 9
sss | ggg | kkk
10
aaa

Also erst xxx blau markiert, dann yyy, dann aaa, dann ccc, dann vvv.... usw....
Die Item sind Tab getrennt, in ListBox 4 Spalten.
wenn nicht klar bitte Nachfragen
LG Antonio


Anzeige
AW: Listbox
20.03.2023 18:33:21
Nepumuk
Hallo Antonio,

in einer ListBox lassen sich nur ganze Zeilen auswählen. Ein Markieren von xxx ist nicht möglich.

Um an das SpreedSheet zu kommen, musst du die owc11.exe installieren. Schreib mir eine Mail dann sicke ich sie dir. Die Mailadresse findest du hier:

https://www.herber.de/cgi-bin/f_profil_f.pl?idx=5452019

Gruß
Nepumuk


Anzeige
AW: Listbox
20.03.2023 18:32:57
Daniel
Hi
auslesen kannst du die einzelnen Wert mit Listbox1.List(ZeilenIndex, Spaltenindex)
markieren kannst du aber immer nur eine ganze Zeile.
Gruß Daniel


AW: Listbox
20.03.2023 18:52:53
Antonio
Hallo Nepumuk, danke fürs Angebot aber ich darf nichts installieren.
Hallo Daniel, Nepumuk hat es mir am Anfang schon beschrieben.

Versuche zur Zeit mit ein LISTVIEW, eine Textdatei zu lesen, völlig neu und fremd.
Private Sub CommandButton3_Click()

Dim strTxt As String
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "data1"
.ColumnHeaders.Add , , "data2"
.ColumnHeaders.Add , , "data3"
End With
Open "C:\Users\a.mazza\Desktop\DAT-15-2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strTxt
With ListView1
.ListItems.Add , , Split(strTxt, vbTab)(0)
.ListItems(.ListItems.Count).SubItems(1) = Split(strTxt, vbTab)(1)
.ListItems(.ListItems.Count).SubItems(2) = Split(strTxt, vbTab)(2)
.ListItems(.ListItems.Count).SubItems(3) = Split(strTxt, ",")(3)
End With
Loop
Close 1
End Sub
Bei ListItems.Add, "Index außerhalb.........."
LG Antonio
PS.: bevor ich mich mit ListView beschäftige, geht hier eine einzelne Markierung?


Anzeige
AW: Moment mal.....
20.03.2023 18:58:42
Antonio
auch wenn die ganze Zeile markiert wird... konnte ich damit leben,
ist es möglich die Werte doch nacheinander abzulesen??


AW: Moment mal.....
20.03.2023 19:03:08
Daniel
ja, hatte ich doch geschrieben.
Gruß Daniel


AW: Moment mal.....
20.03.2023 19:19:20
Antonio 
Dim lngRowIndex As Long, lngColumnIndex As Long
            With ListBox2
                For lngRowIndex = .ListIndex To .ListCount - 1
                    For lngColumnIndex = 0 To .ColumnCount - 1
                        TextBox1.Text = .List(lngRowIndex, lngColumnIndex)
                    Next
                Next
            End With
"Eigenschaft List konnte nicht......."
Was ist dabei hier falsch?
LG Antonio


Anzeige
AW: Moment mal.....
20.03.2023 19:39:24
Daniel
du solltest mittlerweile wissen, das man aus ein paar hingeknallten Zeilen Code nicht immer sofort auf den Fehler schließen kann.
vermutlich hast du den Code laufen lassen, ohne das du eine Zeile selektiert hast. Dann ist der Listindex -1 und bei .List ist der erste zulässige Index 0.
(deswegen deutet -1 als Listindex ja auch an, das nichts ausgewählt wurde.
Außerdem, den ListIndex kannt du nur in einer SingelSelect-Listbox verwenden. Bei einer Multiselect-Listbox musst du da anders vorgehen und für jeden Index abfragen, ob er ausgewählt wurde oder nicht:

for i = 0 to Listbox1.ListCount - 1 
    if Listbox1.Selected(i) then
Gruß Daniel



Anzeige
AW: Moment mal.....
20.03.2023 19:41:22
GerdL
Hallo Antonio,

nimmst du zufällig die RowSource als Datenquelle ?

Gruß Gerd


AW: Moment mal.....
20.03.2023 20:40:07
Antonio
Hallo Daniel,
Select war schon auf Single eingestellt und das -1 nichts ausgewählt bedeutet weiß ich, deswegen habe ich den ersten Eintrag selber ausgewählt.
Abfrage ist auch vorhanden, aber sollte nicht mit i = i+1 bei jedem Click nächste item zeigen?
Aber bei jedem Click bleibt im Textbox immer den erste item angezeit.

@Nein Gerd, ist eine Textdatei

LG Antonio


Anzeige
AW: Moment mal.....
20.03.2023 23:09:12
Daniel
Jetzt wird's Schwierig

Du fragst:

"Abfrage ist auch vorhanden, aber sollte nicht mit i = i+1 bei jedem Click nächste item zeigen?"

Aber der Code, den du mir gezeigt hast, sieht so aus:
Dim lngRowIndex As Long, lngColumnIndex As Long
               With ListBox2
                   For lngRowIndex = .ListIndex To .ListCount - 1
                       For lngColumnIndex = 0 To .ColumnCount - 1
                           TextBox1.Text = .List(lngRowIndex, lngColumnIndex)
                       Next
                   Next
               End With
Da kommt jetzt aber nirgendwo ein i als Variable vor.
Wo ist da der Zusammenhang? Schreibst du absichtlich so wirres zusammenhangloses Zeugs?
Gruß Daniel


Anzeige
AW: Sorry Daniel
21.03.2023 15:28:31
Antonio
Sorry habe gestern Besuch bekommen,
habe jetzt gemerkt den falschen Code gesendet zu haben.
https://www.herber.de/bbs/user/158349.xlsm
Hier ein Beispiel für die Daten die ich "Scrollen" möchte.
Die ListBox ist aus der Textdatei gefüllt, es sind immer vier Spalten.
Mit dem SpinButton gelingt mir die Item in der TextBox zu lesen,
aber ich möchte sie nicht Zeile für Zeile,
sondern Item für Item, auch wenn eine Spalte leer ist soll trotzdem der leeren Platz in TextBox
mit angezeigt werden,
ZB.: erste Zeile:
Item, leer, leer, leer
zweite Zeile:
Item, Item, leer, leer
usw...
Ich hoffe mein Vorhaben verständlich gemacht zu haben.
LG Antonio


Anzeige
AW: Sorry Daniel
21.03.2023 15:35:37
Daniel
das ist ne leere Exceldatei mit einer leeren Userform.
kein Hinweis, wie das ganze zu benutzen ist.
Wenn ich die userform mal testweise starte, bekomme ich eine Fehlermeldung, weil die Userform eine externe Datei öffnen will, die ich natürlich nicht habe.
Wie soll ich dir da helfen?
du musst das Problem schon so aufbereiten, dass ich es auch nachvollziehen kann.
Ich kann bei dir nicht auf den Rechner schauen.
Gruß Daniel


Anzeige
AW: hier den Ordner
22.03.2023 00:47:11
onur
Wie kommst du eigentlich darauf, dass dein Code alle Spalten (soweit vorhanden) füllen würde? Es wird nur die ERSTE Spalte befüllt.


Anzeige
AW: so jetzt meine Frage.....
22.03.2023 08:36:31
Antonio
Hallo onur, danke für die Rückmeldung,
hatte den falschen Delimiter beim "Split", "|"
mit "vbTab" klappt,
meine Frage dazu war:
Die ListBox ist aus der Textdatei gefüllt, es sind immer vier Spalten.
Mit dem SpinButton gelingt mir die Item in der TextBox zu lesen,
aber ich möchte sie nicht Zeile für Zeile,
sondern Item für Item, auch wenn eine Spalte leer ist soll trotzdem der leeren Platz in TextBox
mit angezeigt werden,
ZB.: erste Zeile:
Item, leer, leer, leer (Anzeige in Testbox)
zweite Zeile:
Item, Item, leer, leer (Anzeige in Testbox)
usw...
Ich hoffe mein Vorhaben verständlich gemacht zu haben.
Ich hoffe auch es möglich ist.
LG Antonio


Anzeige
AW: so jetzt meine Frage.....
22.03.2023 14:01:32
Daniel
Hi
probier mal das.
Spinbutton funktioniert wie beschrieben.
du kannst auch die Akkorde in der Listbox einzeln direkt anklicken, um sie in die Textbox zu holen.
Da der ListIndex verwendet wird, um den ausgewählten Einttrag zu kennzeichnen, ist nur singleSelect für die Listbox möglich

https://www.herber.de/bbs/user/158373.xlsm

Gruß Daniel

für Mitleser: die Datei benötigt die Text-Datei, die Antonion in seinen Anfragen mit hochgeladen hat, diese muss im gleichen Verzeichnis liegen wie die Exceldatei.


Anzeige
AW: so.......
22.03.2023 15:19:28
Antonio
Hallo Daniel,
brauche gar nicht zu sagen das Du mehr wie gefragt eingepflegt hast.
Du hast das Mathematisches Denken und ich nehme an auch viel Erfahrung,
Ich Danke dir sehr dafür dass ich weiter gekommen bin.

eine Frage noch,
da ich den SpinButton ein einen Metronom anbinde, ich meine das, durch den Takt des Metronoms wird der SpinButton in "Bewegung gesetzt.
Da der Listbox beim Initialize der UF auf Index "0" steht, also erste "Zeile" ausgewählt, verliere ich dadurch die Synkronization.
ZB.:
Metronom läuft ein leeres Takt durch:
1 2 3 4, dann von Vorne und auf dem Nächste 1 soll dann der SpinButton anfangen an zu laufen,
Nochmal:
1 2 3 4, Metronom läuft, auf der Form bewegt sich gar nichts. Metronom fängt von Vorne:
1.................., Hier wird der SpinButton aktiviert und läut durch die vier Spalten Synkron mit dem Metronom.

Habe versucht beim Initialize 
ListBox2.ListIndex = -1
ScrollBar1.Value = -1
auf -1 zu setzen,...........Eigenschaft List konnte nicht.......
Hast noch ein Tipp hier?
Falls du eine Mappe brauchst mit dem Cod vom Metronom, bitte nachfragen,
und Falls ich frech bin mit meine Frage, kannst ignorieren.
Nochmal DANKE für den Code
LG Antonio


Anzeige
AW: so.......
22.03.2023 16:20:35
Daniel
"null" gibt es nicht. die Zeiger für Zeile (Listindex) und Spalte (Scrollbar) müssen auf irgendwas gesetzt sein.
wenn beim ersten Metronom-Klick auch das erste Element der Listbox angezeigt werden soll, solltest du vorher das letzte Element auswählen.
also zum Start: Listbox2.ListIndex = Listbox2.ListCount - 1 und Scrollbar1.value = Scrollbar1.Max (hier 3)
wenn du einen Leertakt durchlaufen lassen willst, dann fügst du der Listbox noch eine Zeile hinzu, lässt die Werte aber leer (oder schreibst 1, 2, 3, 4 rein, um das anzählen zu simulieren). der Startwert für den ListIndex ist dann Listcount - 2

Gruß Daniel


Anzeige
AW: YEEEAAAHHHH
22.03.2023 16:25:10
Antonio
Super idee,
DANKE Für ALLES
LG Antonio


AW: Kurze Freude
23.03.2023 14:25:11
Antonio
Hallo Daniel,
versuche seit gestern den ListBox mit ScrollBar im Einklang mit dem Metronom zu bringen,
egal wie ich es versucht habe, glaub es mir es war nicht wenig,
lauft Metronom und ScrollBar unterschiedlich :
1 2 3 4 1 2 3 4 1 2 3 4 1 2 3 4..........Metronom konstant,
1..................2..................3................4............... Scrollbar

Habe versucht die Scrollbar schneller zu machen, vergeblich.
Hier die Mappe mit dem Metronom Code und die geänderte Textdatei.
https://www.herber.de/bbs/user/158402.zip
Vielleicht hast du Zeit und Lust dir die Mappe anzuschauen,
vielleicht habe falsch gedacht mit meiner Versuche.
LG Antonio


Anzeige
AW: Kurze Freude
23.03.2023 15:05:44
Daniel
Hi
1. du musst die Scrollbar bei jedem Metronnomschlag hochsetzten, nicht nur bei 1
Listboxzeile ist der Takt und Scrollbarstellung ist der Schag im Takt
2. du musst, wenn du den Takt wechselst (2/3/4) dies auch in der Scrollbar berücksichtigen, denn wenn das Taktende erreicht ist, muss die Scrollbar wieder auf 0 gestellt werden und in der Listbox die nächste Zeile angesprungen werden
da du in deinem Beispiel nur den 4er-Takt angefragt ist, ist die Scrollbar natürlich auf 4 Schläge pro Takt eingestellt.
hast du was anderes, musst du anpssen, also hier:

Sub ScrollBar()
...
If s = ScrollBar1.Max Then
muss dann statt Scrollbar1.Max die Ausgewählte Schlagzahl stehen (2, 3 oder 4) und das ganze -1 (weil die Scrollbar mit 0 beginnt und nicht mit 1)

Gruß Daniel


Anzeige
AW: Kurze Freude
23.03.2023 15:46:35
Antonio
Hi Daniel,
auch wenn ich :
If s = ToggleButton4.Caption - 1 Then
läuft der Metronom 16x und die ScrollBar 4x
Ich weiß nicht mehr wo ich sonst die StatusBar hochsetzten kann ohne Fehler zu bekommen.

Das mit dem Takt (2/3/4) habe mir gedacht den Wechsel mit einen "Select Case" zu lösen.
Derweil laufen beide unterschiedlich.
Ich weiß das die Einstellungen hier vorgenommen werden müssen:
Sub ScrollBar()
Dim z As Long, s As Long
s = ScrollBar1.Value
z = ListBox2.ListIndex
If z = -1 Then z = 0
If s = ToggleButton4.Caption - 1 Then
    ListBox2.ListIndex = IIf(z = ListBox2.ListCount - 1, -1, z) + 1
    ScrollBar1.Value = ScrollBar1.Min
Else
    ScrollBar1.Value = s + 1
End If
End Sub
...und was bedeutet das "IIf" in 
ListBox2.ListIndex = IIf(z = ListBox2.ListCount - 1, -1, z) + 1
LG Antonio


Anzeige
AW: Kurze Freude
23.03.2023 16:45:11
Daniel
das ist irgendwie auch grober Unfug.
die Togglebuttonüberschrift ändert sich doch nicht.
Wenn du programmieren willst, musst du schon ein bisschen mitdenken und nicht einfach irgendwas machen.
Du hast doch schon die Variable "Takt" in welcher die ausgewählte Taktart abgelegt ist, die kannst du doch nutzen.
also 

If s >=  (Takt - 1) then
das &gt= braucht man für den Fall, dass du im Laufen auf eine kleiner Taktart umschaltest, als der aktuelle Takt ist.
btw, ich empfehle dir, Option Explict nicht auszuschalten sondern aktiv zu lassen. Das schützt dich vor schwer auffindbaren Flüchtigkeitsfehleren, falls du dich mal bei den Variablen vertippst.
Gruß Daniel


Anzeige
AW: Kurze Freude
23.03.2023 17:24:43
Antonio
Hallo Daniel,
ich glaube das bringt überhaupt nichts für mich.
Mein Kopf Dampft
Meine Gedanken sind im Nirvana
Meine Augen sehen nur Schatten
........
Habe Option Explict aktiviert und erst die Ganze Variable deklariert.
Das:
If s >= (Takt - 1) Then
is nutzlich falls der Takt gewechselt wird. OK Danke,
aber die ScrollBar macht mir Sorgen,
wo, wie kann ich den Hochsetzten, es tut mir Leid, ich komme nicht weiter
und das ärgert mich, bin oft den Code durchgegangen, ich weiß das die ScrollBar schuld daran ist
momentan ist für mich ein Ratenspiel, sehen nichts mehr als Bäume.
Bin an meine Grenze sehr nah.
LG Antonio


Anzeige
AW: Kurze Freude
23.03.2023 17:44:58
Daniel
hast du das hier schon geändert:

      If Label7.Caption = 1 And b = True Then
      Call ScrollBar
      End If
so wird die Scrollbar nur bei "1" hochgesetzt.
Die Scrollbar muss aber bei jedem Schlag hochgesetzt werden.
Bei 1 muss die Listbox um 1 hochgesetzt werden, daber das passiert automatisch wenn die Scrollbar das Maximum erreicht hat.
Gruß Daniel


Anzeige
AW: Kurze Freude
23.03.2023 18:47:12
Antonio
Ich gebe es auf für heuteabend
LG Antonio


AW: Kurze Freude
24.03.2023 10:23:47
Antonio
Hi Daniel,
heutemorgen mit klarem Kopf :
If Label7.Caption = 1 Or 2 Or 3 Or 4 And b = True Then
      Call ScrollBar
      End If
Laufen jetzt Synkron.

Hier muss ich was anders machen :
If s = ScrollBar1.Max And s >= (Takt - 1) Then
"ScrollBar1.Max" bleibt immer 4 und erkennt "s >= (Takt - 1) " nicht,
bei Takt 3\4
der Metronom zählt 1 2 3 , der ScrollBar zählt immer noch 1 2 3 4.
Hast hier ein Tipp für mich?
Soll ich ein neuer Thread öffnen? Der hier wird zu lang.
LG Antonio


Anzeige
AW: Kurze Freude
24.03.2023 14:31:07
Daniel
naja, so klar ist dein Kopf noch nicht.
schau mal:
wenn schreiben willst, dass ein Wert 1 oder 2 sein darf, dann musst du sas so schreiben:

If Label7.Caption = 1 Or Label7.Caption = 2  Then
schreibst du das so:
If Label7.Caption = 1 Or  2  Then
dann wird nicht geprüft, ob die Caption = 2 ist, sondern die 2 gilt hier als eigener Wahrheitswert und alle Zahlen außer 0 gelten als WAHR.
wenn es so funktioniert wie du es hier geschrieben hast, dann kannst du das IF auch weglassen, bzw es reicht:
if b = True then
bzw wenn bei "0" nicht gestartet werden soll, dann ggf auch so
If Label7.Caption > "0"  And b = True Then
noch ein Tip, wenn du AND und OR in der bedingung hast, dann gilt auch hier analog zur Punkt vor Strich -Regel, dass zuerst die UND-Vergleiche ausgeführt werden und danach die ODER-Vergleiche. Gegebenen Falls muss man Klammern setzen.
Korrekt wäre dein ursprünglicher Ausdruck so:
If (Label7.Caption = 1 Or Label7.Caption = 2 Or Label7.Caption = 3 Or  Label7.Caption =4 )And b = True Then
wobei mir allerdings die Funktion von b nicht bekannt ist.

beim zweiten musst du dann OR verwenden
If s = ScrollBar1.Max Or s >= (Takt - 1) Then
allerdings sollte
 If  s >= (Takt - 1)
Then ausreichen
Gruß Daniel


Anzeige
AW: Kurze Freude
24.03.2023 16:53:48
Antonio
das mit dem " analog zur Punkt vor Strich -Regel " habe nicht gewust, danke für die Belehrung.

So, jetzt ist für mi logisch das wenn der Button 3 geclickt wird, das die ScrollBar um 1 runter setzten muss.
durch _1_:
If s = ScrollBar1.Max Or s >= (Takt - 1) Then
läuft einmal 1...4
dann rennt die Listbox nach unten durch ohne die 1 2 3 4 zu respektieren.

durch _2_:
If s = ScrollBar1.Max And s >= (Takt - 1) Then
läuft gut aber die 1 2 3 4 werden 2x durchgegangen.
Das alles in 4\4 Takt.

in 3\4 Takt läuft in beiden Varianten gleich, der einzige unterschied ist das der Metronom sein Takt von 3\4 behält,
die ScrollBar nimmt den " s >= (Takt - 1) " nicht an.
bei mehrere Haltepunkt ist der Wert von "s" immer 3 bzw. 4 wenn man von null aus zählt.
sollte aber 2 sein.
Bin ein wenig verwirrt, weil alles was du mir geschrieben hast hat Sinn und Logik.
Normalerweise sollte die ScrollBar, wenn " s >= (Takt - 1) " den Takt annehmen, ist aber nicht der Fall
Läuft bei dir das Programm oder hast nicht probiert?
Ich weiß WIRKLICH nicht mehr weiter.
LG Antonio


Anzeige
AW: Kästchen vergessen
24.03.2023 16:54:40
Antonio
.


AW: Kästchen vergessen
24.03.2023 16:55:00
Antonio
.


AW: Kurze Freude
24.03.2023 17:39:54
Daniel
Bei mir läuft es, wobei ich natürlich nicht weiß, ob wir das gleiche Verständnis haben, wie es laufen soll.
Ich weis auch nicht, ob du wirklich alles so umgesetzt hast, wie ich es gemeint habe, wenn du mir immer nur Bruchstücke deiner Programmierung zeigt.

Gruß Daniel


Anzeige
AW: Kurze Freude
24.03.2023 17:47:29
Antonio
Ich habe alles umgestzt wie du beschrieben hast,
bis auf
If s = ScrollBar1.Max Or s >= (Takt - 1) Then
einmal mit "Or" einmal mit "And"
hier meine Mappe:
https://www.herber.de/bbs/user/158420.xlsm
LG Antonio


Anzeige
AW: stop
24.03.2023 18:07:06
Antonio
kann sein das ich die ListBox zurück aus 3 Spalten setzten muss? Beim Wechsel auf 3\4 Takt


AW: stop
24.03.2023 18:07:55
Antonio
mist, das Kästchen


AW: Erledigt
25.03.2023 11:13:26
Antonio
Danke für alles Daniel,
es war sehr lehrreich
und Danke das du mich motiviert hast.
LG Antonio


Anzeige
AW: Sorry Daniel
21.03.2023 15:38:46
Antonio
Kästchen vergessen


AW: Nepumuk
22.03.2023 12:18:06
Antonio
@ Nepumuk,
hallo Nepumuk, dein Code ist OK!
den bringe ich nur zum laufen, mit dem Button, wenn ich eine MsgBox dran hänge und den erste Eitrag markiere.
nbei die Mappe mit eine Bsp. Datei:
https://www.herber.de/bbs/user/158365.zip

Dann wie kann ich dein Code im SpinButton integrieren?
LG Antonio

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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