Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
22.10.2025 15:30:07
Beitragsproblem im Forum behoben
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
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
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in Zeile suchen und Spalte ausgeben

Forumthread: Wert in Zeile suchen und Spalte ausgeben

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
Anzeige

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
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
19.07.2020 14:41:59
Werner
;

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
Anzeige
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Wert in Zeile suchen und Spalte ausgeben in Excel mit VBA

Schritt-für-Schritt-Anleitung

Um einen Wert in einer bestimmten Zeile zu suchen und die Spaltennummer auszugeben, kannst du VBA in Excel verwenden. Hier ist eine einfache Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklicke im Projektfenster auf dein Projekt.
    • Wähle Einfügen > Modul.

  3. Kopiere folgenden Code in das Modul:

    Option Explicit
Public Sub SucheUndGebeSpalteAus()
    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

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus:

    • Gehe zu Entwicklertools > Makros, wähle SucheUndGebeSpalteAus und klicke auf Ausführen.

  6. Gib den Suchwert ein, z. B. "30", und klicke auf OK. Die Spaltennummer wird in einer Meldung angezeigt.

Häufige Fehler und Lösungen

  • Fehler: "Suche nach ... erfolglos."

    • Lösung: Stelle sicher, dass der Wert in der ersten Zeile der Tabelle1 vorhanden ist.

  • Fehler: Eingabeaufforderung erscheint nicht.

    • Lösung: Überprüfe, ob das Makro tatsächlich gestartet wurde. Möglicherweise musst du die Makros in den Excel-Optionen aktivieren.

  • Fehler: Spalte wird nicht korrekt ausgegeben.

    • Lösung: Vergewissere dich, dass der Offset im Code korrekt eingestellt ist. Das Beispiel gibt die Spalte rechts von der gefundenen Spalte aus.

Alternative Methoden

  1. Verwendung von Excel-Formeln:

    • Du kannst die Formel =VERGLEICH(Suchwert;A1:Z1;0) verwenden, um die Position eines Wertes in der ersten Zeile zu ermitteln. Um die Spalte auszugeben, kannst du die Formel anpassen.

  2. Power Query:

    • Wenn du eine größere Datenmenge bearbeitest, könnte Power Query eine nützliche Alternative sein, um Werte zu suchen und zu analysieren.

Praktische Beispiele

  • Beispiel 1: Suche nach "30" in der ersten Zeile.

    • Wenn "30" in Spalte G steht, gibt das Makro 6 aus, da G die 7. Spalte ist, und der Offset auf 1 gesetzt ist.

  • Beispiel 2: Suche nach einem Textwert.

    • Wenn du nach "Apfel" suchst und es in Spalte C steht, wird 4 ausgegeben, wenn der Offset entsprechend angepasst ist.

Tipps für Profis

  • Debugging: Nutze Debug.Print innerhalb des Codes, um den Wert von Variablen während der Ausführung zu überwachen.
  • Erweiterung des Codes: Du kannst den Code erweitern, um mehrere Werte gleichzeitig zu suchen oder sogar eine Liste von Suchwerten durchzugehen.
  • Optimierung: Verwende FindNext, um alle Vorkommen eines Wertes in der Zeile zu finden und nicht nur das erste.

FAQ: Häufige Fragen

1. Wie kann ich den Suchbereich ändern? Du kannst den Rows(1)-Teil im Code ändern, um eine andere Zeile zu durchsuchen, z. B. Rows(2) für die zweite Zeile.

2. Funktioniert das in allen Excel-Versionen? Ja, der VBA-Code sollte in allen modernen Excel-Versionen funktionieren, die VBA unterstützen.

3. Kann ich die Eingabeaufforderung anpassen? Ja, du kannst den Text in der Application.InputBox-Funktion ändern, um spezifischere Anweisungen zu geben.

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