Begriff in Zelle suchen, Spalte kopieren
13.01.2022 11:52:05
ZeFix
aufgrund meiner kaum vorhandenen Kenntnisse komme ich da nicht weiter. Online Recherche brachte auch keinen Erfolg.
Mein Wunsch ist es von Tabelle2 aus in Tabelle1 nach einem bestimmten Begriff suchen zu lassen damit ich diese SPALTE ermitteln kann.
Dann die gefüllten Zellen dieser ermittelten SPALTE bzw. deren Bereich z.B.(H3:H16) in Tabelle2 in Spalte C rüber kopieren.
Ausgangsbasis war:
Option Explicit
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim strSuchwort As String
strSuchwort = InputBox("Welches Suchwort?", "Suchwort eingeben")
For Each rngZelle In Worksheets("Tabelle1").Range("H:JJ")
If rngZelle = strSuchwort Then
' rngZelle.Range("E1:P1").Copy _
' Sheets("Tabelle2").Range("E" & Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp) _
'.Row)
Exit Sub
End If
Next rngZelle
End Sub
Die Daten habe ich der Übersicht geschuldet leider in Spalten angelegt und zeilenweile die Meßwerte aufgeschrieben.
Ich hoffe hier Hilfe finden zu können.
Vielen Dank im Voraus