ListBox/MsgBox /CommandButton
27.01.2017 16:08:30
VBA-Träumer
ich habe wieder einmal ein Problemchen.
Mit folgendem Code habe ich mir eine MsgBox zusammengebaut die den Wert einer Zelle in abhängigkeit einer anderen ausgibt. Funktioniert soweit schonmal. Check.
Private Sub commandbutton4_click()
Dim rngData As Range
Set rngData = Range("A1:B1")
If rngData.Range("A1") = "X" Then 'Überprüfen ob Lagerhaltig
If rngData.Range("B1") >= 1 Then 'Falls Ja, Bestandsabfrage
MsgBox " Es sind" & Chr(13) & ActiveSheet.Range("B1") & Ch (13) & "auf lager", _
vbInformation, "Abfrage Lagerhaltig" 'Ausgabe des Lagerbestandes
Else
If rngData.Range("B1") = "" Then
MsgBox " Aktuell kein Lagerbestand vorhanden", vbExclamation, "Abfrage Lagerhaltig"
End If
End If
End If
If rngData.Range("A1").Value = "" Then
MsgBox "Betriebsmittel ist nicht Lagerhaltig angelegt", vbExclamation, "Abfrage _
Lagerhaltig"
End If
End Sub
Weiterhin kann ich mit einem weiteren Befehl, einen Datensatz aus meiner Listbox per Doppelklick anwählen und werde direkt in die richtige Zeile der Excel-Tabelle verwiesen.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Range("$A$4:$E$10000").AutoFilter Field:=3, Criteria1:=ListBox1.Lis(ListBox1. _
ListIndex, 2)
Unload Me
End Sub
Nun zu meinem Vorhaben: Ich möchte die beiden Komponenten miteinander verbinden.
Zuerst möchte ich einen Datensatz in meiner ListBox markieren. Ist dieser markiert, möchte ich auf den CommandButton4 klicken, welcher die Maschinerie mit der MsgBox in Gang setzt.
Ich bekomm aber einfach die verbindung nicht auf die Reihe. Und vermutlich gibt es auch noch probleme mit dem range("XX") befehl, da sich die Zellen ja immer wieder ändern und ich in meinem Beispiel von fixen zellen ausgeganen bin.
Für Lösungsansätze oder Tipps wäre ich sehr Dankbar.
Vielen Dank und ein schönes Wochenende
Mfg