Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.
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

80 Forumthreads zu ähnlichen Themen

Makros in anderem Tabellenblatt ausführen
Andrew

Hallo zusammen,
ich habe eine Exceldatei, die je Tabellenblatt mehrere Makros hat. Diese Makros sind in die verschiedenen Tabellen (in der VBA-Sicht) eingebettet. Jedes Tabellenblatt beinhaltet anderes Datenmaterial. Jedoch sind die Planphasen in allen Tabellen gleich. Das Anzeigen der Plan...
02.06.2009 10:08:27
Thread-ID: 1078555
6 Beiträge
Anzeige
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
Anzeige
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

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
1
1
14
6
14
4
2
6
2
2
10
7
2
8
2
23
11
11
2
2
1
14
1