Hallo Zusammen,
heut steh ich irgendwie auf dme Schlauch. Ich möchte Daten aus einem anderen Sheet übertragen. Steht allerdings in Zeile A z.B. "Späh Karl", dann soll in der nächsten Zeile (bei mir I) weitergemacht werden und in der Zeile mit "Späh Karl" gar nichts passieren. Dachte das geht mit next I, aber dem ist nicht so. auch I+1 oder ähnliches geht nicht. Kann mir da irgendwer ein Tipp geben?
Vielen, vielen Dank und allen schon Mal schöne Feiertage!
Katrin
Hier ist übrigens der Code:
Sub Werte_einlesen()
Dim Pfad As String
Dim IniName As String
For I = 6 To ActiveSheet.Range("Legende").End(xlUp).Row 'Zeilen zählen 6 bis letzte
Lieferant = ActiveSheet.Cells(I, 1) 'Liest Lieferantennamen aus Spalte A
EKG = ActiveSheet.Cells(I, 2)
Jahr = ActiveSheet.Range("Jahr")
'Jan
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Jan"
ActiveSheet.Cells(I, 3) = Pfad
.....
'Dez
Pfad = "='P:\Gru_EK_Lieferanten\12_Lagerlisten\EKG_" & EKG & "\" & Jahr & "\" & Lieferant & " Lagerliste " & Jahr & ".xls'!Erfüllungsgrad_Dez"
ActiveSheet.Cells(I, 14) = Pfad
If ActiveSheet.Cells(I, 1) = "Späh Karl" Then
Next I
End Sub |