In dem sheet test_csv1 soll die Spalte A bis zum Ende bzw. bis zum ersten leeren Wert durchlaufen werden und bezogen auf den gleichen Wert z.B B71-G20-ST-nur HP-Info die korrespondierenden Werte zur Projektbegründung, Projekthistorie, Alternativenprüfung, Raumordnung, Städtepotenzial, Weitere Projektwirkungen, Umweltfachliche Gegebenheiten, Weitere Hinweise zum Projekt aus der Spalte nächsten Spalte F transponiert in das sheet Übersicht H-Projekte eintragen Der folgende Code-Schnipsel macht das nur bis für den 1. Wert (hier B71-G20-ST-nur HP-Info.
Sub ProjektListeErzeugen()
Dim Zellwert As String 'Variable für Zellwert
Dim Ze As Double 'Zeilenzähler für die Loop-Schleife
Dim StartZelle As String
Dim ZielZe As Double 'Ausgabezeile für das Sheet H-Projekte
Dim ZielSp As Integer 'Ausgabespalte für das Sheet H-Projekte
Ze = 2
ZielSp = 3
ZielZe = 2
Worksheets("test_csv1").Activate
StartZelle = Range("A2").Formula
With ActiveSheet
Do Until IsEmpty(Cells(Ze, 1))
If Cells(Ze, 1).Formula = StartZelle Then
If Cells(Ze, 5).Formula "STR" Then
Zellwert = Cells(Ze, 1).Offset(1, 5).Formula
Sheets(2).Cells(ZielZe, ZielSp).Formula = Zellwert
ZielSp = ZielSp + 1
'MsgBox Zellwert
ElseIf Cells(Ze, 5).Formula = "STR" Then
' Zellwert = Cells(Ze + 1, 1).Offset(1, 5).Formula
' Sheets(2).Cells(ZielZe, ZielSp).Formula = Zellwert
' ZielSp = ZielSp + 1
End If
Else
ZielZe = ZielZe + 1
StartZelle = Cells(Ze, 1).Formula
End If
Ze = Ze + 1
Loop
End With
End Sub
https://www.herber.de/bbs/user/88991.xlsx
Hat da jemand eine Idee? Danke Klaus