Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

INPUTBOX nach Gültigkeit

Forumthread: INPUTBOX nach Gültigkeit

INPUTBOX nach Gültigkeit
04.11.2003 11:35:41
Valentino
Hallo allerseits!!

Wie kann ich eine Inputbox aufrufen, die auf eine Bedingung reagiert?

Dabei gehts um die Funktion Sumif (Summewenn).
Mit der Funktion führe ich eine Abfrage durch.
Die dem Suchkriterium ermittelten Werte können mehmalig vorkommen.
Sobald mehr als ein Wert dem Suchkriterium entspricht soll eine INPUTBOX den Benutzer fragen, ob er alle gefundenen Werte oder nur eine bestimmte Anzahl in die Tabelle eintragen soll.

Kann mir da jemand weiterhelfen??

Gruß
Valentino
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: INPUTBOX nach Gültigkeit
04.11.2003 15:03:19
Nike
Hi,
ein Ansatz:


Private Sub Such()
Dim wshZiel As Worksheet
Dim lngZeil As Long
Dim rngfind As Range
Dim Target As Range
Set wsh = Worksheets(1)
Set Target = wsh.Columns(1)
strFind = "Suchbegriff"
lngZeil = 1
Set rngfind = Target.Find(strFind, LookAt:=xlPart, LookIn:=xlValues)
If Not rngfind Is Nothing Then
rngfind.Copy Worksheets(2).Cells(lngZeil, 1)
lngZeil = lngZeil + 1
Application.CutCopyMode = False
End If
If MsgBox("Sollen mehrere Ergebnisse ausgewertet werden?", vbYesNo, "Multiauswertung") _
= vbNo Then Exit Sub
Do
Set rngfind = .Cells.FindNext(After:=rngfind)
'wenn kein weiterer Datensatz gefunden, dann aussteigen
If rngfind Is Nothing Then
Exit Do
Else
End If
Loop
End Sub


Bye

Nike
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige