20.01.2015, 11:55
Moin, moin
sicherlich ist meine Frage für euch ein klacks.
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B4") >= 2013 Then
Worksheets("Verlauf").Range("C10000").End(xlUp).Offset(1, 0) = Range("A4")
Worksheets("Verlauf").Range("a10000").End(xlUp).Offset(1, 0) = Range("B4")
Worksheets("Verlauf").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
If Range("C4") >= 2013 Then
Worksheets("Verlauf").Range("C10000").End(xlUp).Offset(1, 0) = Range("A4")
Worksheets("Verlauf").Range("a10000").End(xlUp).Offset(1, 0) = Range("C4")
Worksheets("Verlauf").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End Sub
Meine Frage:
Trage ich in B4 ein Datum ein, werden die Daten in die nächste frei Spalte der Tabelle "Verlauf" eingetragen (läuft super).
Wird in C4 ein Datum eingetragen läuft auch alles korrekt nur wird leider auch nochmals die
Daten von B4 eingetragen. Somit habe ich einen doppelten Eintrag in der Tabelle "Verlauf".
"Wenn B4 ein Datum enthält, dann Befehl nicht ausführen".
(Gibt es einen angenehmeren Befehl für die Datum Abfrage)
Würde mich über eine Hilfestellung freuen.
sicherlich ist meine Frage für euch ein klacks.
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B4") >= 2013 Then
Worksheets("Verlauf").Range("C10000").End(xlUp).Offset(1, 0) = Range("A4")
Worksheets("Verlauf").Range("a10000").End(xlUp).Offset(1, 0) = Range("B4")
Worksheets("Verlauf").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
If Range("C4") >= 2013 Then
Worksheets("Verlauf").Range("C10000").End(xlUp).Offset(1, 0) = Range("A4")
Worksheets("Verlauf").Range("a10000").End(xlUp).Offset(1, 0) = Range("C4")
Worksheets("Verlauf").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End Sub
Meine Frage:
Trage ich in B4 ein Datum ein, werden die Daten in die nächste frei Spalte der Tabelle "Verlauf" eingetragen (läuft super).
Wird in C4 ein Datum eingetragen läuft auch alles korrekt nur wird leider auch nochmals die
Daten von B4 eingetragen. Somit habe ich einen doppelten Eintrag in der Tabelle "Verlauf".
"Wenn B4 ein Datum enthält, dann Befehl nicht ausführen".
(Gibt es einen angenehmeren Befehl für die Datum Abfrage)
Würde mich über eine Hilfestellung freuen.