bastel gerade an einer Schleife herum, glaub ich hab einen klitzekleinen Fehler
noch inne u seh ihn leider nicht.
Könnt ihr mir hierbei bitte helfen ?
Im Beispiel unterhalb von Exit Sub wäre die einzelne Zeilenprozedur die so funktioniert ... es soll immer das gleiche geprüft werden in den Zeilen 10 - 29
daher habe ich oberhalb mal eine Schleife versucht...
Sub Ka_GS_übertragen() '
Dim n As Integer
For n = 10 To 29
If Left(Cells(n, 18).Value, 1) = "G" Then
Sheets(10).Cells(Sheets(5).Cells(n, 57).Value + 10, 1) = Date
End If
Next n
Exit Sub
If Left([R10], 1) = "G" Then
Sheets(10).Cells([BE10].Value + 10, 14) = Date
' Sheets(10).Cells([BE10].Value + 10, 15) = ' ... Kundennamen ( Einlöser )
Sheets(10).Cells([BE10].Value + 10, 16) = [P5].Value
End If
If Left([R11], 1) = "G" Then
Sheets(10).Cells([BE11].Value + 10, 14) = Date
' Sheets(10).Cells([BE11].Value + 10, 15) = ' ... Kundennamen ( Einlöser )
Sheets(10).Cells([BE11].Value + 10, 16) = [P5].Value
' .... bis Row 29
End If
betsen dank vorab u schöne Grüße
udo