Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Klick auf Button, listbox,tabelle

Klick auf Button, listbox,tabelle
23.03.2020 07:43:08
Michi
Guten Tag Ihr Excel Profis
Ich bringe es irgendwie nicht hin das ich neue Kurse einfügen kann.
Ich klicke auf den Button "Kurs eingeben" , dann kann ich bei der Multipage "Kursdaten eingeben"
wenn ich die TextBoxen und Combobox mit Daten ausgefüllt habe Klicke ich nun auf den Button "Neue Kursvorlage" . ID fügt es mir automatisch hinzu, aber leider sind alle meine Dateneingabe weg, es zeigt mir nicht in der Listbox an und es fügt mir auch nicht in die Kursvorlage ein.
Das ist die Datei: https://www.herber.de/bbs/user/136028.xlsm
und hier ist mein Code:
  • 
Private Sub CommandButton1_Click()
Dim lZeile As Long
Dim NeueID As Long
lZeile = 2
Do While Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  ""
lZeile = lZeile + 1
Loop
NeueID = Application.Max(Sheets("Kursvorlagen").Range("A:A")) + 1
Worksheets("Kursvorlagen").Cells(lZeile, 1) = CStr(NeueID)
ListBox2.ColumnCount = 3
ListBox2.ColumnWidths = "0,8 cm"
ListBox2.AddItem
ListBox2.List(ListBox2.ListCount - 1, 0) = CStr(NeueID)
ListBox2.List(ListBox2.ListCount - 1, 1) = ""
ListBox2.List(ListBox2.ListCount - 1, 2) = ""
ListBox2.ListIndex = ListBox2.ListCount - 1
End Sub

    • Kann mir jemand Helfen, komme echt nicht weiter ist zum verzweifeln?
    Danke für eure Hilfe.
    Lg Michi

    18
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Klick auf Button, listbox,tabelle
    23.03.2020 08:14:32
    Kuwer
    Hallo Michi,
    ersetze Deine Private Sub ListBox2_Click()-Prozedur durch folgende:
    Private Sub ListBox2_Click()
Dim lZeile As Long
If ListBox2.Name = ActiveControl.Name Then
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox8 = ""
TextBox9 = ""
ComboBox1 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
If ListBox2.ListIndex >= 0 Then
lZeile = 2
Do While Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  ""
If ListBox2.Text = Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  _
Then
TextBox4 = Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))
TextBox5 = Worksheets("Kursvorlagen").Cells(lZeile, 2).Value
TextBox6 = Worksheets("Kursvorlagen").Cells(lZeile, 3).Value
TextBox8 = Worksheets("Kursvorlagen").Cells(lZeile, 4).Value
TextBox9 = Worksheets("Kursvorlagen").Cells(lZeile, 5).Value
ComboBox1 = Worksheets("Kursvorlagen").Cells(lZeile, 6).Value
TextBox11 = Worksheets("Kursvorlagen").Cells(lZeile, 7).Value
TextBox11 = Format(TextBox11, "hh:mm")
TextBox12 = Worksheets("Kursvorlagen").Cells(lZeile, 8).Value
TextBox13 = Worksheets("Kursvorlagen").Cells(lZeile, 9).Value
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
End If
End Sub
    Gruß Uwe
    Anzeige
    AW: Klick auf Button, listbox,tabelle
    23.03.2020 08:27:19
    Michi
    Hallo Uwe
    Danke das du mir hilfst.
    Habe dies mit deinem Code ersetzt aber es passiert nichts, Listbox bleibt leer und in der Tabelle passiert auch nichts.
    Habe ich was falsch gemacht?
    Lg Michi
    AW: Klick auf Button, listbox,tabelle
    23.03.2020 08:32:53
    Kuwer
    Hallo Michi,
    "Habe ich was falsch gemacht?"
    vermutlich ja.
    Gruß Uwe
    AW: Klick auf Button, listbox,tabelle
    23.03.2020 08:39:55
    Michi
    Hallo Uwe
    Hier die Datei mit deinem Code drinnen, kannst du bitte mal testen.
    https://www.herber.de/bbs/user/136030.xlsm
    Wäre lieb wenn du es testen könntest, ich sehe den Fehler echt nicht habe es dort eingefügt wo du es mir gesagt hast.
    Lg Michi
    Anzeige
    Kommando zurück ;-)
    23.03.2020 08:52:17
    Kuwer
    Hallo Michi,
    sorry, war mein Fehler. Ich bedachte nicht, dass das ActiveControl immer die MultiPage ist.
    Teste es mal so:
    Private Sub CommandButton1_Click()
Dim lZeile As Long
Dim NeueID As Long
lZeile = 2
Do While Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  ""
lZeile = lZeile + 1
Loop
NeueID = Application.Max(Sheets("Kursvorlagen").Range("A:A")) + 1
Worksheets("Kursvorlagen").Cells(lZeile, 1) = CStr(NeueID)
With ListBox2
.Tag = "x"
.ColumnCount = 3
.ColumnWidths = "0,8 cm"
.AddItem
.List(ListBox2.ListCount - 1, 0) = CStr(NeueID)
.List(ListBox2.ListCount - 1, 1) = ""
.List(ListBox2.ListCount - 1, 2) = ""
.Tag = ""
.ListIndex = ListBox2.ListCount - 1
End With
End Sub
Private Sub ListBox2_Click()
Dim lZeile As Long
If ListBox2.Tag = "" Then
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox8 = ""
TextBox9 = ""
ComboBox1 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
If ListBox2.ListIndex >= 0 Then
lZeile = 2
Do While Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  ""
If ListBox2.Text = Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))  _
Then
TextBox4 = Trim(CStr(Worksheets("Kursvorlagen").Cells(lZeile, 1).Value))
TextBox5 = Worksheets("Kursvorlagen").Cells(lZeile, 2).Value
TextBox6 = Worksheets("Kursvorlagen").Cells(lZeile, 3).Value
TextBox8 = Worksheets("Kursvorlagen").Cells(lZeile, 4).Value
TextBox9 = Worksheets("Kursvorlagen").Cells(lZeile, 5).Value
ComboBox1 = Worksheets("Kursvorlagen").Cells(lZeile, 6).Value
TextBox11 = Worksheets("Kursvorlagen").Cells(lZeile, 7).Value
TextBox11 = Format(TextBox11, "hh:mm")
TextBox12 = Worksheets("Kursvorlagen").Cells(lZeile, 8).Value
TextBox13 = Worksheets("Kursvorlagen").Cells(lZeile, 9).Value
Exit Do
End If
lZeile = lZeile + 1
Loop
End If
End If
End Sub
    Gruß Uwe
    Anzeige
    AW: Kommando zurück ;-)
    23.03.2020 09:02:37
    Michi
    Hallo Uwe
    Kein Problem, aber leider immer noch gleich. :-(
    Hoffe du kannst mir weiterhin helfen?
    Lg Michi
    Offen
    23.03.2020 09:12:01
    Kuwer
    Hallo Michi,
    alles, was jetzt nach den Änderungen passiert oder auch nicht, ist dann codemäßig so gewollt.
    Gruß Uwe
    AW: Offen
    23.03.2020 09:19:24
    Michi
    Hallo Uwe
    Danke für deine Hilfe.
    In diesem fall muss ich den Code umschreiben.
    Das es so funktioniert wie ich es gern hätte.
    Das es wenn ich nach Eingabe der Kursdaten auf Button "Neue Kursvorlage" Klicke mir in Listbox anzeigt und in die Tabelle "Kursvorlagen" einträgt.
    Danke für deine Hilfe und hoffe das mir jemand sonst auch noch Helfen kann.
    Wäre echt lieb.
    Lg Michi
    Anzeige
    AW: Offen
    23.03.2020 09:49:14
    Nepumuk
    Hallo Michi,
    ändere mal folgende Prozeduren:
    Private Sub CommandButton1_Click()
        Dim lZeile As Long
        Dim NeueID As String
        
        With Worksheets("Kursvorlagen")
            
            lZeile = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            
            NeueID = CStr(Application.Max(.Columns(1)) + 1)
            .Cells(lZeile, 1) = NeueID
            
        End With
        
        With ListBox2
            
            .ColumnCount = 3
            .ColumnWidths = "0,8 cm"
            .AddItem
            .List(.ListCount - 1, 0) = NeueID
            .List(.ListCount - 1, 1) = vbNullString
            .List(.ListCount - 1, 2) = vbNullString
            
            .ListIndex = .ListCount - 1
            
        End With
    End Sub

    Private Sub CommandButton2_Click()
        Dim objCell As Range
        
        If ListBox2.ListIndex > -1 Then
            
            Set objCell = Worksheets("Kursvorlagen").Columns(1).Find( _
                What:=ListBox2.Text, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not objCell Is Nothing Then
                
                objCell.EntireRow.Delete
                
                Call UserForm_Initialize
                If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
                
            End If
        End If
    End Sub

    Private Sub ListBox2_Click()
        Dim objCell As Range
        
        TextBox4.Text = vbNullString
        TextBox5.Text = vbNullString
        TextBox6.Text = vbNullString
        TextBox8.Text = vbNullString
        TextBox9.Text = vbNullString
        ComboBox1.Text = vbNullString
        TextBox11.Text = vbNullString
        TextBox12.Text = vbNullString
        TextBox13.Text = vbNullString
        
        With Worksheets("Kursvorlagen")
            
            Set objCell = .Columns(1).Find(What:=ListBox2.Text, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not objCell Is Nothing Then
                
                TextBox4.Text = objCell.Text
                TextBox5.Text = objCell.Offset(0, 1).Text
                TextBox6.Text = objCell.Offset(0, 2).Text
                TextBox8.Text = objCell.Offset(0, 3).Text
                TextBox9.Text = objCell.Offset(0, 4).Text
                ComboBox1.Text = objCell.Offset(0, 5).Text
                TextBox11.Text = objCell.Offset(0, 6).Text
                TextBox12.Text = objCell.Offset(0, 7).Text
                TextBox13.Text = objCell.Offset(0, 8).Text
                
            End If
        End With
    End Sub

    Private Sub CommandButton6_Click()
        Dim objCell As Range
        Dim rgtext As String
        Dim lbvalue As Long
        
        lbvalue = ListBox2.ListIndex
        
        If ListBox2.ListIndex > -1 Then
            
            If TextBox4.TextLength = 0 Then
                MsgBox "ID fehlt!", vbCritical, "FEHLER!"
                Exit Sub
            End If
            
            With Worksheets("Kursvorlagen")
                
                Set objCell = .Columns(1).Find(What:=ListBox2.Text, LookIn:=xlValues, LookAt:=xlWhole)
                
                If Not objCell Is Nothing Then
                    
                    objCell.Offset(0, 1).Value = TextBox5.Text
                    objCell.Offset(0, 2).Value = TextBox6.Text
                    objCell.Offset(0, 3).Value = TextBox8.Text
                    objCell.Offset(0, 4).Value = TextBox9.Text
                    objCell.Offset(0, 5).Value = ComboBox1.Text
                    TextBox11.Text = Format$(TextBox11.Text, "hh:mm")
                    objCell.Offset(0, 6).Value = TextBox11.Text
                    objCell.Offset(0, 7).Value = TextBox12.Text
                    objCell.Offset(0, 8).Value = TextBox13.Text
                    
                End If
            End With
            
            Call UserForm_Initialize
            ListBox2.ListIndex = lbvalue
        End If
    End Sub

    Gruß
    Nepumuk
    Anzeige
    AW: Offen
    23.03.2020 14:46:26
    Michi
    Hallo Nepumuk
    Habe es jetzt gerade so angepasst wie Du es mir empfohlen hast.
    Aber leider immer noch das selber Problem, in der Listbox bekomme ich nur die neu zugewiesene ID, das selber auch bei der Tabelle Kursvorlage. Aber alle Dateneingaben sind weg.
    Hast Du sonst noch eine Idee?
    Danke für deine Hilfe.
    Lg Michi
    AW: Offen
    23.03.2020 15:10:35
    Nepumuk
    Hallo Michi,
    also bei mir werden die Daten in die Tabelle Kursteilnahmen eingetragen.
    Auch Änderungen oder Neueintragungen in die Kursvorlagen werden in die Tabelle eingetragen und in der Listbox aktualisiert.
    Gruß
    Nepumuk
    AW: Offen
    23.03.2020 15:19:42
    Michi
    Hallo Nepumuk,
    Kannst du mir bitte die Datei mal hochladen, wäre super lieb?
    Lg Michi
    Anzeige
    AW: Offen
    23.03.2020 15:31:12
    Michi
    Hallo Nepumuk,
    Ich gebe einfach daten ein und klicke dann auf neue Kursvorlage und habe immer noch das Problem. Nur ID und der rest ist weg. Liegt es daran das ich Microsoft Office 365 version habe?
    Lg Michi
    AW: Offen
    23.03.2020 15:41:27
    Nepumuk
    Hallo Michi,
    Neue Kursvorlage ist der CommandButton1 und da ist im Makro das vorgesehen. Sonst nichts.
    Private Sub CommandButton1_Click()
        Dim lZeile As Long
        Dim NeueID As String
        
        With Worksheets("Kursvorlagen")
            
            lZeile = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            
            NeueID = CStr(Application.Max(.Columns(1)) + 1)
            .Cells(lZeile, 1) = NeueID
            
        End With
        
        With ListBox2
            
            .ColumnCount = 3
            .ColumnWidths = "0,8 cm"
            .AddItem
            .List(.ListCount - 1, 0) = NeueID
            .List(.ListCount - 1, 1) = vbNullString
            .List(.ListCount - 1, 2) = vbNullString
            
            .ListIndex = .ListCount - 1
            
        End With
    End Sub

    Gruß
    Nepumuk
    Anzeige
    AW: Offen
    23.03.2020 15:48:54
    Michi
    Hallo Nepumuk
    Ja soweit war es mir klar, aber das wollte ich eben ergänzen/ändern, das es mir von dort aus in die Listbox einträgt und in die Tabelle "Kursvorlagen" ,wenn ich auf den Button "Neue Kursvorlage" klicke.
    Ich möchte eben von der Userform her die neuen Kurse eintragen und dann mit Klick auf Button "Neue Kursvorlage" Direkt in die Listbox erscheinen lasse und in die Tabelle "Kursvorlage" kopieren/einfügen.
    Und da steh ich momentan voll auf dem schlauch und komme gerade nicht mehr weiter :-(.
    Kannst du mir dabei weiterhelfen?
    Danke für deine Hilfe
    Lg Michi
    Anzeige
    AW: Offen
    23.03.2020 15:59:24
    Nepumuk
    Hallo Michi,
    teste mal:
    Private Sub CommandButton1_Click()
        
        Dim lZeile As Long
        
        With Worksheets("Kursvorlagen")
            
            lZeile = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            
            .Cells(lZeile, 1) = CStr(Application.Max(.Columns(1)) + 1)
            .Cells(lZeile, 2).Value = TextBox5.Text
            .Cells(lZeile, 3).Value = TextBox6.Text
            .Cells(lZeile, 4).Value = TextBox8.Text
            .Cells(lZeile, 5).Value = TextBox9.Text
            .Cells(lZeile, 6).Value = ComboBox1.Text
            TextBox11.Text = Format$(TextBox11.Text, "hh:mm")
            .Cells(lZeile, 7).Value = TextBox11.Text
            .Cells(lZeile, 8).Value = TextBox12.Text
            .Cells(lZeile, 9).Value = TextBox13.Text
            
        End With
        
        Call UserForm_Initialize
        
    End Sub

    Gruß
    Nepumuk
    Anzeige
    AW: Offen
    23.03.2020 16:06:16
    Michi
    Hallo Nepumuk
    Ja klasse, genau das was ich wollte :-)
    Genial.
    Danke viel mal für deine Bemühungen.
    Lg Michi

    43 Forumthreads zu ähnlichen Themen

    Abfrage ob Klick auf Button erfolgt ist
    Frank

    Hallo Zusammen!!!
    Wieder einmal eine Frage: Mittels einer UF werden Daten in ein Tabellenblatt geschrieben. Auf der UF befinden sich 4 CommandButton, welche Daten in das Tabellenblatt eintragen. Der 5. Button schließt dann die UF. Nun möchte ich, dass wenn der User auf den 5. Button klickt...
    13.07.2010 15:24:22
    Thread-ID: 1166887
    4 Beiträge
    Anzeige
    Beim Klick auf Abbrechen Makro beenden
    chandler

    Hallo,
    wenn im nachfolgenden Makro auf die Schaltfläche Abbrechen geklickt wird bleibt das Makro stehen und wird nicht beendet. On Error Resume Next hilft nicht. Sub Test() 'Test ChDrive Left(CurDir, 1) ChDir CurDir Dim z As Range Dim search As String Set wbtarget = ThisWorkbook.Worksheets...
    05.11.2012 14:39:02
    Thread-ID: 1285354
    5 Beiträge
    Optionsbutton ausblenden funzt nur bei klick
    EarnyToLearny

    Liebe Excel-Profis,
    es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False If Sheets("Tabelle1").Range(...
    26.01.2013 17:07:38
    Thread-ID: 1296107
    5 Beiträge
    Anzeige
    Bei Klick auf Checkbutton soll Gedruckt werden
    Langmantl

    Hallo,
    bei Klick auf Checkbutton soll selektiert werden, ob die Datei in Farbe oder in Schwarzweiß gedruckt wird und es soll mittels inputbox die Anzahl der kopien definierbar sein, danach drucken.
    Wie lautet hierzu der Code?
    05.11.2014 14:49:50
    Thread-ID: 1390643
    3 Beiträge
    Klick auf CommandButton, Link nicht öffnen
    Propman

    Hallo,
    ich habe eine kleine Testdatei hier aufgebaut:
    https://dl.taikocloud.com/download.php?id=115&token=EkfT3Bffiltj4gpJfsfDbzEfW6dkU4Jp
    (Wie schon mehrfach geschrieben ist es mir leider nicht möglich vom Mac aus irgendwelche Dateien bei Herber hochzuladen, weder mit Safari no...
    01.03.2015 12:15:54
    Thread-ID: 1412078
    3 Beiträge
    Aufrufenden cmdButton eines UF bestimmen
    Wusel

    Hallo zusammen,
    ich habe mal wieder ein kleines Problem und hoffe man kann mir hier weiterhelfen :)
    Ich habe ein Userform(UF1) gebaut und möchte dies nun von 2 verschiedenen anderen Userforms(UF2/UF3) aufrufen. Je nachdem ob UF2 oder UF3 aufruft soll UF1 aber anders befüllt werden. Jetz...
    03.06.2015 22:27:42
    Thread-ID: 1429182
    5 Beiträge
    Button auf Homepage klicken
    Hermann

    Hallo zusammen,
    nach erfolgloser Suche & Testen habe ich es nun aufgegeben und benötige Hilfe von einem Experten.
    Ich möchte mittels eines VBA einen bestimmten Button auf dieser Homepage klicken: "http://www.unternehmen24.info/Firmeninformationen/DE/4232667"
    Freue mich um Suppor...
    30.06.2016 18:28:50
    Thread-ID: 1501912
    4 Beiträge
    Datum perKlick auf Button einfügen
    Frank

    Hallo,
    ich habe eine Textbox, diese soll sich nach drücken eines Buttons mit dem aktuellen Datum füllen.
    Wie kann ich dies lösen?
    Vielen Dank
    22.11.2016 13:05:55
    Thread-ID: 1526318
    3 Beiträge

    Links zu Excel-Dialogen

    TextBox UserForm

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    9
    4
    4
    32
    2
    2
    4
    3
    2
    5
    4
    2
    2
    8
    1
    6
    2
    22
    7
    1
    1
    1
    3
    1