Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
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
Vergleich eines Wertes (Inputbox) mit Liste
21.03.2017 10:25:08
Georg
Liebe Mitstreiter,
ich hab mit meinen geringem Know-How leider keine Idee:
1. In einer Input Box wird ein Ort eingegeben (das krieg ich noch hin: NameOrt = Inputbox....)
2. Dieser Wert soll verglichen werden mit Spalte C (Auflistung von Orten, allerdings auch mit Leeren Zellen)
3. Wird dieser Wert gefunden z. B. in Zeile 21, soll zu A21 gegangen werden, und dieser Wert soll dann nach E21 kopiert werden.
Wird nichts gefunden geht es weiter im Code.(Es folgen noch weitere Anweisungen, die aber funktionieren)
Danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich eines Wertes (Inputbox) mit Liste
21.03.2017 10:55:34
Werner
Hallo Georg,
zum Beispiel so:
Public Sub aaa()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Suchbegriff eingeben:", "Suche")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(3).Find(strSuchbegriff, LookIn:=xlValues, _
Lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Offset(0, 2).Value = rngTreffer.Offset(0, -2).Value
End If
End Sub
Gruß Werner
AW: Vergleich eines Wertes (Inputbox) mit Liste
21.03.2017 11:01:14
ChrisL
Hi Georg
oder so...
Sub t()
Dim strInput As String
Dim lngZeile As Long
strInput = InputBox("blabla")
If strInput  "" Then
If WorksheetFunction.CountIf(Columns(3), strInput) = 0 Then
MsgBox "nix gefunden"
Else
lngZeile = Application.Match(strInput, Columns(3), 0)
Cells(lngZeile, 5) = Cells(lngZeile, 1)
End If
End If
MsgBox "weiter im Code"
End Sub

cu
Chris
Anzeige
AW: Vergleich eines Wertes (Inputbox) mit Liste
21.03.2017 11:05:32
Georg
Chris und Werner
vielen Dank und wie immer perfekt.

Gruß G
Gerne u.Danke für die Rückmeldung. o.w.T.
21.03.2017 13:14:13
Werner
AW: Vergleich eines Wertes (Inputbox) mit Liste
21.03.2017 11:01:20
Werner
Hallo Georg,
hier noch mit einer entsprechenden Meldung wenn nicht gefunden.
Public Sub aaa()
Dim rngTreffer As Range
Dim strSuchbegriff As String
strSuchbegriff = InputBox("Suchbegriff eingeben:", "Suche")
Set rngTreffer = ActiveWorkbook.ActiveSheet.Columns(3).Find(strSuchbegriff, LookIn:=xlValues, _
Lookat:=xlWhole)
If Not rngTreffer Is Nothing Then
rngTreffer.Offset(0, 2).Value = rngTreffer.Offset(0, -2).Value
Else
MsgBox "Suchbegriff " & strSuchbegriff & " nicht vorhanden."
End If
End Sub
Gruß Werner
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige