Makroproblem !
04.06.2009 08:24:32
Ernst
Habe folgende Problemstellung: bei den unten angeführten Makros kommt es zu folgendem Problem wenn ich das aktuelle Datum per Doppelklick einfüge führt es im Tabellenblatt Archiv dazu das drei Zellen mit dem Aktuellem Datum gefüllt werden bei Änderung des Eintrags auf Offset(0, -0) sinds dann nur mehr zwei !bei manueller Änderung des Datums wird nur eine Zelle im Archiv gefüllt so wie ich es gerne hätte.
Meine Frage ? gibt es eine Möglichkeit das per Doppelklick zwar zwei Zellen im Archiv mit dem Datum befüllt werden anschliesend jedoch eine wieder gelöscht wird !
Wäre für Lösungen sehr dankbar.
lg.Ernst
ps.es wäre wichtig für mich beide Möglichkeiten nützen zu können.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
Dim zelle As Long
If Target.Row > 4 And (Target.Column = 2 Or Target.Column = 6 Or Target.Column = 10) Then
Target.Value = Format(Date, "dd.mm.yyyy")
For i = 5 To 247
zelle = Sheets("Archiv").Cells(i, Columns.Count).End(xlToLeft).Column + 1
If Sheets("Archiv").Cells(i, 1) = Cells(Target.Row, Target.Column).Offset(0, -1).Value Then
Sheets("Archiv").Cells(i, zelle) = Cells(Target.Row, Target.Column).Value
End If
Next
ElseIf Target.Column = 3 Or Target.Column = 7 Or Target.Column = 11 Then
UserForm1.Show
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim zelle As Long
For i = 5 To 247
zelle = Sheets("Archiv").Cells(i, Columns.Count).End(xlToLeft).Column + 1
If Sheets("Archiv").Cells(i, 1) = Cells(Target.Row, Target.Column).Offset(0, -1).Value Then
Sheets("Archiv").Cells(i, zelle) = Cells(Target.Row, Target.Column).Value
End If
Next
End Sub