Code ändern satt datum text
10.05.2018 12:23:39
Sebi
ich habe diesen Code:
Do Until .Cells(intZeileKunden, 1).Value = ""
If Not .Cells(intZeileKunden, 12).Value = "" Then
' If .Cells(intZeileKunden, 12).Value >= Date Then ' dieses herausnehmen und er macht alles innerhalb 3 Jahren + End if
If .Cells(intZeileKunden, 12).Value Tabelle4.Cells(intZeileAuslieferung, 1).Value = .Cells(intZeileKunden, 1).Value
Tabelle4.Cells(intZeileAuslieferung, 2).Value = strKunde
Tabelle4.Cells(intZeileAuslieferung, 3).Value = .Cells(intZeileKunden, 12).Value
intZeileAuslieferung = intZeileAuslieferung + 1
End If
'End If ' dieses herausnehmen und er macht alles innerhalb 3 Jahren
End If
intZeileKunden = intZeileKunden + 1
Loop
mit diesem Code ziehe ich wenn in der saplte 12 ein Datum ist.
Den möchte ich ändern. So das er das satt Datum spalte 15 nimmt wenn was drin ( Namen als einen Text ) steht.
Wie muss ich denn die Zeile ändern :
If Not .Cells(intZeileKunden, 12).Value = "" Then
' If .Cells(intZeileKunden, 12).Value >= Date Then ' dieses herausnehmen und er macht alles innerhalb 3 Jahren + End if
If .Cells(intZeileKunden, 12).Value Besten Dank an alle