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
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 12: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 12: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 13: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 15: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 16: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 16: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 07: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 10: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 17:38:41
Thread-ID: 1052888
2 Beiträge
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 10:14:53
Thread-ID: 1061720
14 Beiträge
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 13:29:14
Thread-ID: 1092259
8 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 16:08:39
Thread-ID: 1124438
7 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 20:41:42
Thread-ID: 113525
6 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 13:58:57
Thread-ID: 1132305
5 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 14:36:14
Thread-ID: 1175826
7 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 08:42:52
Thread-ID: 1178498
5 Beiträge
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 13:17:51
Thread-ID: 1185358
2 Beiträge
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 21:25:34
Thread-ID: 1207254
7 Beiträge
Makro in einer Tabelle bei Zelländerung starten
Peter

Hallo Zusammen,
ich komme nicht weiter und bitte um Eure Hilfe.
Habe ein Makro xxx in einer Makrodatei auf C:/Makros
In D:/Test läuft meine Datei Büro.xlsm.
In Büro.xlsm möchte ich bei Änderung einer Zelle in der Tabelle1 das Makro xxx starten. Mein Code sieht abgespeckt so aus...
04.04.2013 15:52:21
Thread-ID: 1307286
13 Beiträge
Worksheet_Change auf form. Tabelle begrenzen
Thorsten

Hallo Nachtschwärmer,
falls noch einer in der Excelwelt unterwegs ist, brauche ich mal wieder Hilfe.
Ich nutze nachstehenden Code und der funktioniert auch. Nur möchte ich nicht, dass dieser im gesamten Tabellenblatt Anwendung findet, sondern nur innerhalb der formatierten Tabelle. Der...
17.03.2014 01:25:21
Thread-ID: 1353724
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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