Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1772to1776
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
Wert in Zeile suchen und Spalte ausgeben
18.07.2020 22:59:08
Ingo
Hallo zusammen,
ich habe nicht so viel Ahnung von VBA und bräuchte mal eure Unterstützung.
Ich habe schon viele Beiträge durchsucht, aber keiner konnte mir so richtig helfen.
Ich möchte einen Wert in der Tabelle1 in Zeile 1 suchen.
Die Eingabe des Suchwertes soll über eine Inputbox erfolgen, aber wenn der Wert "" oder nicht gefunden wird, soll die Eingabeaufforderung erneut erfolgen.
Nun soll die Spaltennummer von der Spalte rechts neben der Spalte in der mein Suchwert steht, der Variable "z" zugewiesen werden.
Beispiel:
Ich suche die Zahl 30, diese steht in der Tabelle1, Spalte g.
Dann soll z = 6 ergeben.
Viele Dank schon mal und Gruß
Ingo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
=VERGLEICH(30;1:1;0)-1
18.07.2020 23:38:43
WF
das ist aber die Spalte links von G (nicht rechts).
WF
AW: Wert in Zeile suchen und Spalte ausgeben
18.07.2020 23:42:01
Werner
Hallo,
Option Explicit
Public Sub aaa()
Dim z As Long, varSuche As Variant, raFund As Range
With Worksheets("Tabelle1")
neustart:
varSuche = Application.InputBox("Suchbegriff eingeben.", "Suche nach...", Type:=1)
If varSuche = False Then Exit Sub
Set raFund = .Rows(1).Find(what:=varSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
z = raFund.Offset(, 1).Column
MsgBox "Spalte: " & z
Else
MsgBox "Suche nach " & varSuche & " erfolglos."
GoTo neustart
End If
End With
End Sub
Gruß Werner
Anzeige
AW: Wert in Zeile suchen und Spalte ausgeben
19.07.2020 07:38:17
Ingo
Hallo zusammen,
ihr seid ja echt der Wahnsinn. Hätte nicht so schnell mit einer Lösung gerechnet.
#WF
Ja ich meine natürlich die Spalte links daneben.
Anscheinend habe ich auch noch eine rechts/links-Schwäche. Grins.
#Werner
Genau nach so einer VBA-Formel habe ich gesucht.
Die macht genau das was ich haben möchten.
Habe den Offset auf -1 gesetzt da ich ja als Ergebnis eine Spalte vorher haben möchte.
Danke, Danke, Danke
Gruß
Ingo
Gerne u. Danke für die Rückmeldung. o.w.T.
19.07.2020 14:41:59
Werner

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige