Listbox Ergebnis in best. Zelle wenn...
05.04.2020 19:55:23
Christoph
erstmal möchte ich sagen, dass eure Beiträge hier echt der Wahnsinn sind! So viel hilfreiches Wissen an einem Ort!
Da ich - abgesehen vom Makro-Recorder - relativ ungeübt mit VBA bin hab ich in den letzten Tagen mit Hilfe eures Forums und einiger Tutorials eine Listbox erstellt. Die Datei habe ich auch hochgeladen:
https://www.herber.de/bbs/user/136427.xlsm
Mein Ziel war folgendes: Der User sollte mit der Listbox aus verschiedenen Kostenarten die Summe der Kosten je nach Auswahl berechnen können.
Dazu klickt der User auf "Schaltfläche1" woraufhin sich die ListBox öffnet. Folgender Code schreibt die Auswahl in Tabelle1 (erste leere Zelle der Spalte Z):
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 26).End(xlUp).Row + 1
Dim i As Integer
With UserForm1.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
If Cells(last, 26).Value = "" Then
ActiveSheet.Cells(last, 26).Value = .List(i)
Else
ActiveSheet.Cells(last, 26).Value = ActiveSheet.Cells(last, 26).Value & "/" & . _
List(i)
End If
Else
End If
Next i
UserForm1.Hide
End With
1. wenn der User für "das erste Formular" (Tabelle2 A1:L22 nenne ich 1. Formular, und da Button bei "H7") noch mal etwas ändern möchte wird das erneute Ausführen der Listbox das Ergenis in "Z3" in Tabelle1 schreiben. Eigetlich sollte dies aber wieder in "Z2" geschrieben werden.
2. Wenn der User das 1. Formular - aus welchem Grund auch immer - nicht ausfüllt und direkt zum "2. Formular" (Tabelle2 A23:L44, bzw. Buton bei "H29" der noch nicht programmiert ist) übergeht wird das Ausführen der ListBox ein Ergebnis in Tabelle1 in "Z2" schreiben obwohl das Ergebnis in "Z3" geschrieben werden sollte.
Ich denke, dass die Ausgabe des Ergebnisses nicht in die "erste freie Zelle in Spalte Z (26)" - so wie aktuell - erfolgen darf. Es müsste so funktionieren, dass - je nachdem welchen Button ich anwähle ("Formular 1" Button in "H7" oder "Formular 2" Button in "H29", etc.) - das Ergebnis in die jeweilige Datenzeile in Tabelle1 geschrieben wird:
Button bei "H7" --> Ergebnis in Tabelle1 Z2
etc.
Ich befürchte, dass ich zu lange in eine falsche Richtung gegangen bin und mich komplett verlaufen habe. Über die Suche habe ich dutzende Beiträge durchforstet aber leider nichts gefunden was auf mein Problem passt.
Ich hoffe sehr, dass mir ein Profi weiterhelfen kann. Freue mich über jede Rückmeldung.
Danke und LG
Christoph