Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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