Frage von harderxbx1, 33

Excel Userform Berechnung nach bestimmter abfrage/Suche?

Moin liebe Leute.... ich brauch Hilfe zu Excel :-)

Und zwar suche ich seit tagen ein Skript der mir helfen soll etwas zu berechnen wenn ich was suche via Userform. Die Berechnung soll auch in der Userform angezeigt werden. Alle Daten sind in einer Tabelle gespeichert

Beispieltabelle:

A: Bereich B: Zahl1 C:zahl2

Reihe1: Lager1 b: 25 c: 58

Reihe2: Lager2 b: 20 c: 36

Reihe3: Lager3 b: 36 c: 11

Reihe4: Lager1 b: 78 c: 9

etc

Ich möchte mit der Userform bestimmte Daten abfragen bzw. suchen lassen z.B Per Optionsschalter "Lager1" (und via Commandbutton suche starten)

Jetzt werden alle Zeilen mit dem Bereich "Lager1" gesucht und Zahl1 und Zahl2 sollen addiert werden so das mir die Userform anzeigt :

Lager1 , Zahl1 = 103 "Zahl2 = 67

P.S. Bin in der Lernfase für Excel /VB deswegen hab ich keine eigene Idee wie cih das anpacken soll.

Vielen Dank :-)

Expertenantwort
von Oubyi, Community-Experte für Excel, 12

Ich denke, dass klappt am einfachsten mit einer Worksheetfunction.
Angenommen, die Variable, die die Auswahl anzeigt (also "Lager1"), heißt strLagerNummer. Dann:

Sub Lagerwerte()
Dim strLagernummer As String 'hast DU schon aus der UF
Dim rngLager As Range
Dim rngZahl1 As Range
Dim rngZahl2 As Range
Dim lngZahl1Summe As Long
Dim lngZahl2Summe As Long
Dim strAusgabe As String

Set rngLager = Range("A1:B10000") 'Bereiche anpassen
Set rngZahl1 = Range("B1:B10000")
Set rngZahl2 = Range("C1:C10000")

strLagernummer = "Lager1" ' nur für meinen Test

lngZahl1Summe = Application.WorksheetFunction.SumIf(rngLager, strLagernummer, rngZahl1)
lngZahl2Summe = Application.WorksheetFunction.SumIf(rngLager, strLagernummer, rngZahl2)
strAusgabe = strLagernummer & " , Zahl1 = " & lngZahl1Summe & " , Zahl2 = " & lngZahl2Summe
End Sub

Hilft Dir das?
Hast Du noch Fragen?

Kommentar von harderxbx1 ,

Noch hab ich keine ...aber Herzlichen dank...werde ich Später mal Probieren :-)

Keine passende Antwort gefunden?

Fragen Sie die Community