VBA Code Problem
02.03.2005 08:46:46
niki
Guten morgen Forum,
Habe dankenswerterweise einen vba code gesendet bekommen, der jetzt aber nicht funktioniert(was zu 99% mein Fehler ist), ich hab in einmal ins tabellenblatt eingefügt, und auch einmal als ein modul eingefügt...
Es sollte eine lösung sein, um bei doppelklich auf eine zelle in spalte a den zellinhalt in die erste (bei weiterem danach in die nächst-freie zelle) der spalte f einzutragen:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim laR As Long
If Target.Column <> 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
laR = Cells(Rows.Count, 6).End(xlUp).Row
If laR = 1 And Cells(1, 6).Value = "" Then laR = 0
Range("F" & laR + 1).Value = Target.Value
Cancel = True
End Sub
An dieser Stelle danke ich werner nochmals für seine hilfe, konnte gestern nicht mehr antworten...
grüße aus dem sonnigen Wien,