Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige