Ich Möchte den Namen aus einer Zeile auslesen, per Makro, und diesen mit dem untenstehenden verbinden.
Ziel ist es:
Sheets("Tabelle").Cells(j, 1) zu ändern. Bedeutet, ich suche nach dem Wort "Hund" in der Zeile 1 (mit 15 Spalten) und die Zelle in der das Wort steht soll in Sheets("Tabelle").Cells(j, 1) stehen. Ich möchte somit die Spalten variabler gestalten können ohne die Bezugszelle immer wieder um zu schreiben. Da ich 15 Spalten habe, denke ich, dass eine Schleife notwendig ist. Ich habe selbst nicht sehr viel Ahnung von VBA, deswegen ist mein Verständnis von manchen Dingen wie DIM und IF nicht sehr hoch. Danke für jeden der mir helfen kann.
Sub alle_Arbeitsblätter()
Dim i, j, k As Integer
j = 2
k = 20
Worksheets(i).Activate
If Not (IsEmpty(Cells(6, 1))) Then
If Left(Sheets(i).Name, 6) "Start" And Left(Sheets(i).Name, 5) "Liste" Then
Sheets(i).Name = Cells(6, 1)
While Not (IsEmpty(Cells(k, 1)))
Sheets("Tabelle").Cells(j, 1) = j - 1
Sheets("Tabelle").Cells(j, 2) = Cells(6, 1)
Sheets("Tabelle").Cells(j, 3) = Cells(8, 6)
Sheets("Tabelle").Cells(j, 4) = Cells(6, 9)
Sheets("Tabelle").Cells(j, 5) = Cells(k, 1)
k = k + 1
j = j + 1
Wend
End If
End If
Next i
Sheets("Tabelle").Cells(j + 1, 1) = Empty
Sheets("Tabelle").Cells(j + 2, 1) = Empty
Sheets("Tabelle").Cells(j + 3, 1) = Empty
Sheets("Tabelle").Cells(j + 4, 1) = Empty
Sheets("Tabelle").Cells(j + 5, 1) = Empty
End Sub