Ich suche in Zeile 1 einen Namen --> Bsp. Firma, Auto, egal-> ein Wort
Set fc = Worksheets("Tabelle1").Rows("1").Find(what:="Firma")
und um dieses Wort weiter verarbeiten zu können brauche ich nicht die Position z.B. G1 sondern auf G1 bezogen den Wert 7 (7 = G1 = 7.Zelle in Zeile 1)
Ich brauche dass um der Variablen "i" den Bezugspunkt für meine weiteren Aktionen mitzuteilen. Wie bekomme ich es hin, dass sich die Variable "i" auf mein gesuchtes Wort in Zeile 1 bezieht.
Gruß Kerstin
Sub kerstin()
Set fc = Worksheets("Data").Rows("1").Find(what:="slot")
??????????????????????????????????????
i = 7
z = i
Do Until IsEmpty(Cells(1, z + 1).Value) = False
z = z + 1
Loop
k = 1
Do Until IsEmpty(Cells(k, i).Value)
k = k + 1
Loop
Range(Cells(1 + 1, i), Cells(k - 1, z)).Select
Selection.Copy
End Sub