AW: Was für Profis Liste automatisieren
28.12.2005 13:24:16
Unbekannter
Kein Problem.
Private Sub commandbutton2_Click()
'Bewirkt das bei Fehlern das Makro weiterlaüft
On Error Resume Next
'Sucht die letzte Zelle
last = Cells(Rows.Count, 1).End(xlUp).Row
'Markiert die letzte Zelle in A,zum neueintragen
Cells(last + 1, 1).Select
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Bewirkt das bei Fehlern das Makro weiterlaüft
On Error Resume Next
'Such die Zelle mit Kostenstelle,da du ja darunter lles auflistest
kost = Range("a:a").Find("Kostenstelle").Row
'Sucht die letzte Zelle
zelle = Cells(Rows.Count, 1).End(xlUp).Row
'Schaut ob du beim Doppelklick auch in Spalte A bist
If Target.Column = 1 Then
'Schaut ob sich die Zeile zwischen 1 und der von Kostenstelle ist
If Target.Row < kost Then
'Der Block überträgt die Werte der von dir mit Doppelklick ausgewählten Zeile
'Das ist sozusagen der Kopierbefehl,die Zeilen habe ich etwas geändert
Cells(zelle + 1, 1) = Cells(Selection.Row, 1)
Cells(zelle + 1, 2) = Cells(Selection.Row, 2)
Cells(zelle + 1, 3) = Date
Cells(zelle + 1, 4) = Cells(Selection.Row, 4)
'Markiert die Zelle mit Standort ind der Zeile unter Kostenstelle
Cells(zelle + 1, 4).Select
'Ist zum schließen der IF's
End If: End If
End Sub
Gruß UN1