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

Listbox einträge in intelligente Tabelle bringen

Forumthread: Listbox einträge in intelligente Tabelle bringen

Listbox einträge in intelligente Tabelle bringen
17.06.2024 14:38:55
chkemm
Hallo Forum,
Ich bin neu hier im Forum und habe schon einige Threads gelesen die sehr nützlich waren.
Hierfür erstmal großes lob und danke das Ihr alle so hilfsbereit seit.

Jetzt zu meinem Problem, ich würde gerne Werte einer Listbox in der Userform in eine intelligente Tabelle eintragen.
aber nicht in eine Spalte, sondern in eine Reihe heist:
Der 1. Wert der Listbox soll in Reihe 2 Zelle B,
der 2 Wert der LB soll in Reihe 2 Zelle C,
der 3 in Zelle C usw.
Könnt ihr mir da helfen?
Mfg Chkemm
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
17.06.2024 14:57:34
MCO
Hallo Chkemm,

da du uns keine Daten lieferst, bleibt die Antwort leider auch vage:
Im prinzip geht es so

for i = 1 bis Ende
Dein_Sheet.cells(2, i+1) = Listboxeintrag (i).value

next

Gruß, MCO
AW: Listbox einträge in intelligente Tabelle bringen
17.06.2024 15:11:19
Alwin Weisangler
Hallo,

Wenn es um einen Neueintrag ins Listobject geht gibt es die Funktion: .ListRows.Add
Wenn ein Eintrag überschrieben werden soll braucht es eine Zeilennummer oder irgendetwas eindeutig Identifizierbares. Diese sollte beim Füllen der Listbox mitgegeben werden.
Zeilennummer: erklärt sich von selbst.
eindeutig Identifizierbares: kann man mit .Find Methode Zeilennummer lesen und dann diese - .HeaderRowRange.Row die Zeilennummer im Listobjekt errechnen.

Gruß Uwe

Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
17.06.2024 17:01:26
chkemm
Hallo nochmal hier eine Beispiel Datei.
es soll in der UF arbeiten in die wöchentliche Wartung geschoben werden, und diese dann durch den "anlege" Button in die Tabelle eingefügt werden.

https://www.herber.de/bbs/user/170319.xlsm
Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
17.06.2024 18:12:56
Alwin Weisangler
Hallo,

das ist erst mal für die formularinternen Dinge: 


Option Explicit



Private Sub leerenjhl_Click()

    lb_jährlich.Clear

End Sub



Private Sub leerenwtl_Click()

    lb_wöchentlich.Clear

End Sub



Private Sub UserForm_Initialize()

    lb_wartungen.List = Tabelle2.ListObjects(1).DataBodyRange.Value

End Sub



Private Sub zujhl_Click()

    Dim i&, arr()

    With lb_wartungen

        For i = 0 To lb_wartungen.ListCount - 1

            If .Selected(i) = True Then

                lb_jährlich.AddItem .List(i, 0)

                .Selected(i) = False

            End If

        Next i

    End With

End Sub



Private Sub zuwlt_Click()

    Dim i&, arr()

    With lb_wartungen

        For i = 0 To lb_wartungen.ListCount - 1

            If .Selected(i) = True Then

                lb_wöchentlich.AddItem .List(i, 0)

                .Selected(i) = False

            End If

        Next i

    End With

End Sub

Nun mehrere Fragen der Zieltabelle betreffend:
- Was kommt in Spalte: Spalte1 (meine Vermutung Öl wechseln, Filter tauschen etc.)
- Wie korrelieren die To Do Spalten im Zusammenhang mit den Listboxen für wöchentlich bzw. jährlich.
- Soll bei jeden Schreibvorgang eine Neue Zeile erzeugt werden, oder die 1. Zeile überschrieben werden.

Gruß Uwe


Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
17.06.2024 18:23:01
snb 
Sub M_save()

    With lb_wartungen

        For i = .ListCount - 1 to 0 step -1

            If .Selected(i) =false Then .removeitem j

        Next

        Tabelle2.listobjects(1).databodyrange=.list

   end with

End Sub



Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
18.06.2024 09:27:33
chkemm
Hallo,
-In Spalte 1 soll noch ein Bezug auf ein Textfeld gemacht werden, das ist aber noch nicht geschrieben.
-Aus der ToDo liste sollen Werte eingeschrieben werden können, die dann entweder in wöchentlich oder jährlich oder beides übernommen werden können.
-Er soll eine neue Zeile schreiben, da es um ein anlegen geht, überschreiben ist dann ein extra schritt mit einer anderen UF
Anzeige
AW: Listbox einträge in intelligente Tabelle bringen
18.06.2024 12:55:42
Alwin Weisangler
Hallo,

damit man in der Liste wenigstens den Unterschied zwischen wöchentlich und jährlich erkennen kann, wird am Ende ein J bzw. ein W mitgegeben.
Ansonsten erklärt sich mir dieser Konstrukt höchstens dahingehend, dass du dies hier als Möglichkeit zum Lernen betrachtest wie man in Listobjects programmiert.

so: 


Option Explicit



Private Sub leerenjhl_Click()

    lb_jährlich.Clear

End Sub



Private Sub leerenwtl_Click()

    lb_wöchentlich.Clear

End Sub



Private Sub Maschine_anlegen_Click()

    Dim i&, k&, arr()

    ReDim arr(1 To 1, 1 To Tabelle2.ListObjects(1).ListRows.Count + 1)

    With lb_wöchentlich

        For i = 1 To .ListCount

            arr(1, .List(i - 1, 0) + 1) = .List(i - 1, 1) & " W"

        Next i

    End With

    

    With lb_jährlich

        For i = 1 To .ListCount

             arr(1, .List(i - 1, 0) + 1) = .List(i - 1, 1) & " J"

        Next i

    End With

    With Tabelle1.ListObjects(1)

        .ListRows.Add.Range.Resize(UBound(arr, 1), UBound(arr, 2)) = arr

    End With

End Sub



Private Sub UserForm_Initialize()

    lb_wartungen.List = Tabelle2.ListObjects(1).DataBodyRange.Value

End Sub



Private Sub zujhl_Click()

    Dim i&, arr()

    With lb_wartungen

        For i = 0 To lb_wartungen.ListCount - 1

            If .Selected(i) = True Then

                lb_jährlich.AddItem i + 1

                lb_jährlich.List(lb_jährlich.ListCount - 1, 1) = .List(i, 0)

                .Selected(i) = False

            End If

        Next i

    End With

End Sub



Private Sub zuwlt_Click()

    Dim i&, arr()

    With lb_wartungen

        For i = 0 To lb_wartungen.ListCount - 1

            If .Selected(i) = True Then

                lb_wöchentlich.AddItem i + 1

                lb_wöchentlich.List(lb_wöchentlich.ListCount - 1, 1) = .List(i, 0)

                .Selected(i) = False

            End If

        Next i

    End With

End Sub


Gruß Uwe
Anzeige

Forumthreads zu verwandten Themen

Aus Mastertabelle Berechnungstabelle erstellen
juergen

Hallo Ich bin mal wieder am kämpfen.
Ich habe eine Mastertabelle wo Ich meine eingaben machen kann.
Nun nach Fertigstellung der Tabelle sollen nur die benutzten Zeilen in eine neue Tabelle eingefügt werden ohne leere Zeilen.
Hab da zwar was gefunden aber das klappt nicht. Wobei in S...
22.02.2009 18:38:41
Thread-ID: 1052888
1 Beitrag
Tabelle A mit Tabelle B abstimmen
Ben

https://www.herber.de/bbs/user/60455.xls
Guten Morgen an alle,
habe da ein Problem , ein Satz der hier wohl oft vorkommt ;-)
kann mir da jemand einen Weg zeigen?
Würde meine Arbeit sehr erleichtern, danke an dieser Stelle schon mal.
gruß
ben
19.03.2009 11:14:53
Thread-ID: 1061720
13 Beiträge
Anzeige
Mittelwert aus Tabelle bei Feldern <>0
McFly_HL

Hallo Leute,
habe da nan Kleines Problem, vll könnt Ihr mir dabei helfen :-).
Ich habe eine Tabelle in der verschiedene Felder, zu verschiedenen Zeiten mit Werten befüllt werden.
Von diesen Feldern bleiben immer 2 oder 3 Leer. Daraus folgt, das ich irgendwie realisieren muss, eine...
29.07.2009 15:29:14
Thread-ID: 1092259
7 Beiträge
Tabelle beim speichern sortieren
Ben

Hallo Forum
Ich möchte, dass z.B. die Tabelle1 mit den Einträgen A1 bis C20 immer beim Speichern sortiert wird. Wie kriege ich das hin mit VBA?
Vielen Dank für Eure Hilfe.
Gruss
Ben
16.12.2009 17:08:39
Thread-ID: 1124438
6 Beiträge
Anzeige
Daten in andere Tabelle bringen
Gerd
Hallo Noraversuche es mit folgender Formel
=WENN(ISTFEHLER(SVERWEIS(C1;Tabelle1!A:B;2;0));0;SVERWEIS(C1;Tabelle1!A:B;2;0))
diese schreibst Du in die Tabelle2 in Spalte D1MfG
Gerd
15.04.2002 22:41:42
Thread-ID: 113525
5 Beiträge
Pivottabelle bei mehreren Spalten
RolandE

Hallo,
ich möchte eine Pivottabelle aus 3 Spalten erstellen. Zahl1 und Zahl2 sollen je nach ID zusammengezählt werden.
Leider schreibt Excel die Summen von Zahl1 und Zahl2 untereinander. Ich möchte sie jedoch nebeneinaner haben, wie auf dem Blatt "Ziel" angedeutet.
https://www.herbe...
23.01.2010 14:58:57
Thread-ID: 1132305
4 Beiträge
Tabelle bearbeiten
alifa

Hallo,
in Spalte E Tabelle 1 stehen 305 fünfstellige Zahlen. Nun möchte ich alle Zahlen, die zwei gleiche benachbarte Ziffern haben, löschen.
Beispiel: 11234, 12245, 23333, 13400....
Anschließend sollen die leeren Zeilen( wo die Zellen gelöscht wurden) alle gelöscht werden. Wie kann...
05.09.2010 16:36:14
Thread-ID: 1175826
6 Beiträge
Warum wird Tabelle beim Öffnen nicht geschützt?
Peter

Guten Tag
Ich habe in einer Datei die folgenden codes in DieseArbeitsmappe:
Option Explicit Private Sub Workbook_open() ATabellenschutz_aktivieren_alle End Sub
Private Sub Workbook_Activate() Call ATabellenschutz_aktivieren_alle End Sub Trotzdem sind die Zellen (welche mit einem S...
20.09.2010 10:42:52
Thread-ID: 1178498
4 Beiträge
Anzeige
Pivottabelle Berechnetes Feld
Markus

Hallo,
ich habe folgendes Problem.
Ich kriegs einfach nicht gebacken. Hoffentlich könnt ihr mir weiter helfen.
Ich habe stark vereinfacht eine Tabelle der Form:
Marke | Kalenderjahr | Umsatz
A KJ2009...
06.11.2010 14:17:51
Thread-ID: 1185358
1 Beitrag
Tabelle beliebig oft kopieren
Michael

Hallo Zusammen,
ich habe auf der ersten Seite eine Tabelle eine Abrechnung von Reisekosten. Pro weiteren Mitarbeiter kopiere ich diese Vorlage runter.
Da ich wöchentlich vorher nie weiss, wieviel Mitarbeiter abgerechnet werden, kopiere ich mich bei teils 50 oder 60 Vorlagen runter eine...
23.03.2011 22:25:34
Thread-ID: 1207254
6 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum