Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
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
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in anderem Tabellenblatt suchen Zeile in User

Forumthread: Wert in anderem Tabellenblatt suchen Zeile in User

Wert in anderem Tabellenblatt suchen Zeile in User
05.03.2018 11:30:28
Stefan
Hallo!
Mal wieder komme ich nicht weiter.
Im Tabellenblatt "Start" in Zelle H3 steht mein Suchbegriff.
Jetzt soll das Makro im Tabellenblatt "Db" den Wert in der Spalte A suchen. Anschließend soll die Userform "Meldung" geöffnet werden und der Zeileninhalt des gefundenen Suchbegriffes
Spalte A in Textbox 1
Spalte B in TextBox 2 usw wiedergegeben werden.
Danke
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert in anderem Tabellenblatt suchen Zeile in User
05.03.2018 11:33:29
Hajo_Zi
benutze Find.
Set Rafound1 = Columns(1).Find("Erledigt", Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: Wert in anderem Tabellenblatt suchen Zeile in User
05.03.2018 11:51:17
UweD
Hallo
in ein Modul da Aufrufmakro
Sub Makro1()
    Meldung.Show
End Sub

in die Userform (Meldung)
Private Sub UserForm_Initialize()
    Dim TB1, Tb2
    Set TB1 = Sheets("Start")
    Set Tb2 = Sheets("Db")
    
    Me.TextBox1 = TB1.Range("H3")
    Me.TextBox2 = Application.VLookup(TB1.Range("H3"), Tb2.Range("A:F"), 2, 0)
    Me.TextBox3 = Application.VLookup(TB1.Range("H3"), Tb2.Range("A:F"), 3, 0)
    'Me.TextBox4 = Application.VLookup(TB1.Range("H3"), Tb2.Range("A:F"), 4, 0) 
    'Me.TextBox5 = Application.VLookup(TB1.Range("H3"), Tb2.Range("A:F"), 5, 0) 
End Sub

LG UweD
Anzeige
AW: Wert in anderem Tabellenblatt suchen Zeile in User
05.03.2018 12:37:11
Stefan
Danke euch beiden für die schnelle Antwort.
Uwe dein Code funktioniert super.
Wenn ich jetzt was in einer der TextBoxen ändere wie Speicher ich das in der entsprechende Zeile ab bzw. wie ist der Code?
Stefan
AW: Wert in anderem Tabellenblatt suchen Zeile in User
05.03.2018 13:06:11
UweD
Hallo nochmal
so?
in ein Modul
Public Zeile As Double
Public TB1, TB2

Sub Makro1()
    Meldung.Show
End Sub

in die Userform
Private Sub TextBox2_Change()
    TB2.Cells(Zeile, 2) = Me.TextBox2.Value
End Sub

Private Sub TextBox3_Change()
    TB2.Cells(Zeile, 3) = Me.TextBox3.Value
End Sub

Private Sub UserForm_Initialize()
    On Error GoTo Fehler
    Set TB1 = Sheets("Start")
    Set TB2 = Sheets("Db")
    
    If WorksheetFunction.CountIf(TB2.Range("A:A"), TB1.Range("H3")) > 0 Then
        Zeile = WorksheetFunction.Match(TB1.Range("H3"), TB2.Range("A:A"), 0)
        
        Application.EnableEvents = False
        Me.TextBox1 = TB1.Range("H3")
        Me.TextBox1.Enabled = False 'ggf. auskommentieren 
        
        Me.TextBox2 = TB2.Cells(Zeile, 2)
        Me.TextBox3 = TB2.Cells(Zeile, 3)
        'Me.TextBox4 = TB2.Cells(Zeile, 4) 
        'Me.TextBox5 = TB2.Cells(Zeile, 5) 
    End If
    
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
Fehlerbehandlng
05.03.2018 13:22:39
UweD
falls der Suchbegriff nicht gefunden wird kommt es zum Fehler Bei Änderung der Textboxen...( da die Zeile unbekannt ist.
Private Sub TextBox2_Change()
    TB2.Cells(Zeile, 2) = Me.TextBox2.Value
End Sub

Private Sub TextBox3_Change()
    TB2.Cells(Zeile, 3) = Me.TextBox3.Value
End Sub

Private Sub UserForm_Initialize()
    On Error GoTo Fehler
    Set TB1 = Sheets("Start")
    Set TB2 = Sheets("Db")
    
    Me.TextBox1.Enabled = False 'ggf. auskommentieren 
    
    If WorksheetFunction.CountIf(TB2.Range("A:A"), TB1.Range("H3")) > 0 Then
        Zeile = WorksheetFunction.Match(TB1.Range("H3"), TB2.Range("A:A"), 0)
        
        Application.EnableEvents = False
        Me.TextBox1 = TB1.Range("H3")
        
        Me.TextBox2 = TB2.Cells(Zeile, 2)
        Me.TextBox3 = TB2.Cells(Zeile, 3)
        'Me.TextBox4 = TB2.Cells(Zeile, 4) 
        'Me.TextBox5 = TB2.Cells(Zeile, 5) 
        Application.EnableEvents = True
    End If
    If Not Zeile > 0 Then ' Falls der Begriff nicht gefunden wird 
        MsgBox "'" & TB1.Range("H3") & "'    nicht gefunden"
        Me.TextBox2.Enabled = False
        Me.TextBox3.Enabled = False
    End If
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Fehlerbehandlng
05.03.2018 13:55:57
Stefan
Danke!
Einfach spitze!
Funktioniert,so wie ich es wollte.
Stefan
Danke für die Rückmeldung owT
05.03.2018 14:24:53
UweD
;

Forumthreads zu verwandten Themen

Wert aus anderem Tabellenblatt
Micha*
TabelleX.Range("A1")
16.04.2002 12:32:11
Thread-ID: 113680
2 Beiträge
Suchen in Tabellenblättern nach Wert X und Ausgabe
Jan

Sehr geehrte Damen und Herren,
ich habe hier ein Problem, welches sich wohl nur mit VBA lösen lässt.
Meine Kenntnisse hier reichen nicht aus.
Es geht um folgendes:
Ich habe ein Tabellenblatt mit einer Übersicht von Regalen, diese sind von 1.001 - 1.029 durchnummeriert.
...
04.10.2010 20:49:37
Thread-ID: 1180605
2 Beiträge
Auswahl in anderem Tabellenblatt speichern
Jürgen

Hallo und guten Morgen,
ich habe da ein etwas (für mich) kompliziertes Problem und hab keinen Plan wie es gehen kann.
Also ich verusche ich es mal zu erklären:
Ich möchte auf dem Sheet1 an Zelle c25 eine Zahl zwischen 1 und max. 20 eintragen!(es soll auch nur eine Zahl in diesem Spi...
26.12.2010 11:30:04
Thread-ID: 1192833
7 Beiträge
VBA-Code von in anderem Tabellenblatt starten
in

Hallo liebe Helfer!
Bitte, bitte, bitte helft mir, sonst bekomm ich einen Heulkrampf!!
Ich habe ein größeres Excelprojekt und bin ein einer Stelle schon seit Stunden festgefahren und sehe nicht was falsch ist...
Folgendes:
Ich habe hier einen Code im Internet gefunden, der mir d...
04.03.2012 15:51:54
Thread-ID: 1253541
15 Beiträge
Autofilter in anderem tabellenblatt
Marcel

Hallo zusammen,
nach langem suchen, googlen und probieren wend ich mich schließlich mit diesem Thread an euch als erfahrene Gemeinde.
Vorab zur Info, ich bin nicht gerade gut vertraut mit Makros.
Folgendes Problem:
Ich habe eine Datei mit 2 Tabellenblättern.
Auf dem einen st...
02.10.2012 16:57:59
Thread-ID: 1280266
5 Beiträge
Suche in 2 Tabellenblättern mit 3 Begriffen/Variab
Steffi

Hallo liebe Kollegen,
ich bin verzweifelt auf der Suche nach einer Lösung. Ich habe zweit Tabellenblätter - eine Zusammenfassung/Deckblatt" und ein TB aus dem BW-System.
In dem Deckblatt sind verschiedene Gesellschaften enthalten - hier sollen die Werte aus dem 2. Blatt "gezogen" werden...
26.11.2012 15:39:06
Thread-ID: 1288115
3 Beiträge
sverweis in anderem tabellenblatt?
Chactory

Hallo, liebe Excel-Experten!
Ich konnte heute schon zwei Probleme mit dem Excel-Handbuch und den Experten-Hinweisen im Forum lösen, stehe jetzt aber bei einem weiteren Problem auf dem Schlauch und bitte um Hilfe:
In Tabellenblatt 1 stehen alle Fälle eines Jahres mit bestimmten Eigensc...
24.03.2013 22:15:31
Thread-ID: 1305825
7 Beiträge
Anzeige
Finden in anderem Tabellenblatt
Burghard

Hallo,
diese Funktion
{=SUMME(WENN(NICHT(ISTFEHLER(FINDEN("01";A$2:A$43)));C$2:C$43))}
funktioniert richtig, wenn ich allerdings auf ein anderes Tabellenblatt verweise, z.B. so
{=SUMME(WENN(NICHT(ISTFEHLER(FINDEN('A-2013'!"01";A$2:A$43)));C$2:C$43)))}
dann bekomme ich einen...
10.04.2013 17:26:50
Thread-ID: 1308210
3 Beiträge
ComboBox mit Inhalten aus anderem Tabellenblatt
Hans

Hallo Leute,
ich möchte einen Bottom auf Tabelle1 ein User Form öffnen.
Dort soll eine Combobox mit Inhalten einen Bereiches von Tabelle2 befüllt werden.
Wenn ich das so mache wird der Bereich von Tabelle 1 ( auf der ich mich befinde) genommen. Private Sub UserForm_Initialize() C...
05.07.2013 11:37:32
Thread-ID: 1321272
3 Beiträge
Anzeige
Suchen nur in Tabellenblatt 1-9
rieckmann

Hallo,
ich bräuchte noch mal eure Hilfe.
Habe folgendes Suchmakro, welches aber nur die Tabellenblätter 1-9 durchsuchen soll.
Wie muss es dafür umgeschrieben werden ?
Gruß
Fred
Sub Schaltfläche17_Klicken() Dim Sh As Worksheet Dim GZelle As Range Dim FStelle$ Dim SBegriff...
08.11.2013 22:28:04
Thread-ID: 1337830
11 Beiträge
Anzeige
Zeilen selektiv ohne VBA in anderem Blatt anzeigen
stormlamp

Hallo Zusammen,
in einer Arbeitsmappe möchte ich auf einem Tabellenblatt nur einen Teil der Zeilen auflisten, die in einem anderen Tabellenblatt stehen, ohne dass dabei Leerzeilen entstehen und ohne VBA.
Das Kriterium ist, dass bspw. in der Spalte "H" eine 3 oder 6 oder 11 steht.
Ic...
16.12.2013 13:18:30
Thread-ID: 1342698
8 Beiträge
Suchen in 2 Tabellenblättern
Micha

Hallo Excelexperten,
ich habe eine Tabelle mit 2 Tabellenblättern. In Blatt 1 Spalte D stehen EAN-Codes.
In Blatt 2 sind ca. 10.000 Zeilen. Hier stehen in Spalte A ebenfalls EAN-Codes. Das Blatt 1 ist dynamisch d. h. es können mal 15 oder auch mal 50 Zeilen mit unterschiedlichen EAN's s...
18.06.2014 17:33:11
Thread-ID: 1366418
3 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 anderem Tabellenblatt suchen und anzeigen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle zwei Tabellenblätter: "Start" und "Db".

  2. Gib in die Zelle H3 des Blattes "Start" den Suchbegriff ein.

  3. Füge das folgende VBA-Makro in ein Modul ein:

    Sub Makro1()
    Meldung.Show
End Sub

  4. Erstelle eine Userform namens "Meldung" und füge drei Textboxen hinzu: TextBox1, TextBox2 und TextBox3.

  5. Füge den folgenden Code in die Userform ein:

    Private Sub UserForm_Initialize()
    Dim TB1 As Worksheet, TB2 As Worksheet
    Set TB1 = Sheets("Start")
    Set TB2 = Sheets("Db")

    Me.TextBox1 = TB1.Range("H3")
    Me.TextBox2 = Application.VLookup(TB1.Range("H3"), TB2.Range("A:F"), 2, 0)
    Me.TextBox3 = Application.VLookup(TB1.Range("H3"), TB2.Range("A:F"), 3, 0)
End Sub

  6. Um Änderungen in den Textboxen zu speichern, füge den folgenden Code hinzu:

    Private Sub TextBox2_Change()
    TB2.Cells(Zeile, 2) = Me.TextBox2.Value
End Sub

Private Sub TextBox3_Change()
    TB2.Cells(Zeile, 3) = Me.TextBox3.Value
End Sub

Häufige Fehler und Lösungen

  • Fehler: Suchbegriff nicht gefunden
    Wenn der Suchbegriff nicht gefunden wird, erscheint eine Fehlermeldung. Um dies zu vermeiden, füge eine Fehlerbehandlung hinzu:

    If WorksheetFunction.CountIf(TB2.Range("A:A"), TB1.Range("H3")) > 0 Then
    Zeile = WorksheetFunction.Match(TB1.Range("H3"), TB2.Range("A:A"), 0)
Else
    MsgBox "'" & TB1.Range("H3") & "' nicht gefunden"
End If

  • Fehler: TextBox2 und TextBox3 sind deaktiviert
    Stelle sicher, dass die Textboxen aktiviert sind, nachdem der Suchbegriff gefunden wurde. Dies kann durch das Setzen der Enabled-Eigenschaft auf True erreicht werden.

Alternative Methoden

  • Excel-Formel verwenden: Du kannst auch die Excel-Formel SVERWEIS oder VLOOKUP direkt in einer Zelle verwenden, um den Wert aus einem anderen Tabellenblatt zu suchen. Zum Beispiel:

    =SVERWEIS(H3;Db!A:F;2;FALSCH)

  • Datenübertragung ohne VBA: Wenn du keine Makros verwenden möchtest, kannst du die Daten manuell kopieren oder eine Formel einsetzen, um den Wert aus dem anderen Tabellenblatt zu holen.

Praktische Beispiele

  • Daten aus "Db" suchen und anzeigen: Wenn in der Zelle H3 der Wert "Test" steht und dieser Wert in Spalte A des Blattes "Db" vorhanden ist, werden die entsprechenden Daten in den Textboxen angezeigt.

  • Werte aus mehreren Spalten: Um Werte aus mehreren Spalten zu übernehmen, erweitere die VLookup-Funktion entsprechend. Beispiel:

    Me.TextBox2 = Application.VLookup(TB1.Range("H3"), TB2.Range("A:F"), 2, 0)
Me.TextBox3 = Application.VLookup(TB1.Range("H3"), TB2.Range("A:F"), 3, 0)

Tipps für Profis

  • Verwendung von Find: Anstelle von VLookup kannst du die Find-Methode verwenden, um den Suchbegriff in einer Spalte zu finden. Dies kann die Leistung verbessern, besonders bei großen Datensätzen.

    Dim FoundCell As Range
Set FoundCell = TB2.Columns(1).Find(TB1.Range("H3").Value, LookIn:=xlValues)

  • Datenvalidierung: Implementiere eine Datenvalidierung, um sicherzustellen, dass nur gültige Werte in die Textboxen eingegeben werden.

FAQ: Häufige Fragen

1. Wie kann ich prüfen, ob ein Wert in einem anderen Tabellenblatt vorhanden ist?
Verwende die CountIf-Funktion, um zu prüfen, ob der Wert existiert:

If WorksheetFunction.CountIf(TB2.Range("A:A"), TB1.Range("H3")) > 0 Then
    ' Wert ist vorhanden
End If

2. Wie kann ich Daten aus einem anderen Tabellenblatt übernehmen?
Benutze VLookup, um Daten aus einem anderen Tabellenblatt zu suchen und zu übernehmen. Stelle sicher, dass die Daten in aufsteigender Reihenfolge sortiert sind, wenn du VLookup verwendest.

3. Gibt es eine Möglichkeit, die Zeile, in der der Wert gefunden wurde, anzuzeigen?
Ja, du kannst die Match-Funktion verwenden, um die Zeile des gefundenen Wertes zu ermitteln:

Zeile = WorksheetFunction.Match(TB1.Range("H3"), TB2.Range("A:A"), 0)

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