Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Zellinhalt in anderer Tabelle suchen

Betrifft: Zellinhalt in anderer Tabelle suchen von: Andre
Geschrieben am: 28.09.2020 14:02:46

Hallo Zusammen


Ich habe mal wieder ein Problem:(

Ich habe ein Tabelle mit 2 Tabellenblättern nun möchte ich das der Zellinhalt H29 in Tabelle 2 in Tabelle 1 in Spalte D gesucht wird und der Zellinhalt I31 in Tabelle 2 ab Spalte H in Tabelle 1 in der entsprechenden Zeile eingefügt wird. Wenn Spalte H belegt dann in Spalte I usw. bis Spalte L.

Ich habe eine Testdatei hochgeladen.

https://www.herber.de/bbs/user/140490.xlsx


Vielen Dank für eure Hilfe im voraus

Betrifft: AW: Zellinhalt in anderer Tabelle suchen
von: Rudi Maintaire
Geschrieben am: 28.09.2020 14:47:24

Hallo,
in ein Modul:
Sub Lieferung()
  Dim vntRow, c As Long
  vntRow = Application.Match(Tabelle2.Range("H29"), Tabelle1.Columns(4), 0)
  If IsError(vntRow) Then
    MsgBox "Nummer nicht vorhanden"
  Else
    With Tabelle1
      For c = 8 To 12
        If .Cells(vntRow, c) = "" Then
          .Cells(vntRow, c) = Tabelle2.Range("I31")
          Exit For
        End If
      Next c
    End With
  End If
End Sub

Gruß
Rudi

Betrifft: AW: Zellinhalt in anderer Tabelle suchen
von: Andre
Geschrieben am: 28.09.2020 15:58:40

Hallo Rudi

Vielen Dank für deine schnelle Antwort.
Leider funktioniert dein Code nicht:(
Es kommt immer die Meldung "Nummer nicht gefunden"

Betrifft: AW: Zellinhalt in anderer Tabelle suchen
von: Rudi Maintaire
Geschrieben am: 28.09.2020 16:01:25

anhand deiner Beispielmappe geht das.

Betrifft: AW: Zellinhalt in anderer Tabelle suchen
von: Andre
Geschrieben am: 28.09.2020 16:11:56

Hallo Rudi

Sorry habe es in einer schreibgeschützen Mappe getestet da kann es auch nicht funktionieren.
Jetzt läuft es super
Vielen Dank für deine Hilfe und bleib gesund