Wer kann mir helfen?
Bei Eingabe von x in die Spalte 4 soll der Datensatz in die nächste freie Zeile im Tabellenblatt (bez) kopiert werden.
Vielen Dank
Olga
Bei Eingabe von x in die Spalte 4 soll der Datensatz in die nächste freie Zeile im Tabellenblatt (bez) kopiert werden.
Vielen Dank
Olga
kopiere diesen Code im VB-Editor in die Tabelle wo das Ereignis stattfinden soll:
Gruss Rainer
Sorry, die erste codezeile muss heissen
Private Sub Worksheet_Change(ByVal Target As Range)
Gruss Rainer
Details machen es aus. Man sollte den Code doch mal testen bevor man veröffentlicht :-))
Gruss Rainer
wieso setzt du den Namen in Anführungszeichen ?
Du musst nur oben in der Variable den Tabellennamen angeben
Setze vor End Sub diese Codezeilen:
'3 = Rot
'4 = Grün
'5 = Blau
'6 = Gelb
'7 = Magenta
'15 = Grau
Rows(Cr).Interior.ColorIndex = 3
Mit der Zahl kannst du die Zeile einfärben.
Gruss Rainer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cr As Long
Dim Bez As String
Bez = "Tabelle2"
cr = 65536
If Target.Column <> 4 Then Exit Sub
Debug.Print Target.Value
If Target.Value <> "x" Then Exit Sub
If Worksheets("bez").Cells(cr, 1) = "" Then
Rows(cr).Interior.ColorIndex = 15
cr = Worksheets("bez").Cells(cr, 1).End(xlUp).Row
Debug.Print cr
End If
Rows(Target.Row).Copy Destination:=Worksheets("bez").Rows(cr + 1)
Rows(cr).Interior.ColorIndex = 3
End Sub
Willst du damit die vorletzte Zeile einfärben ?
If Worksheets("bez").Cells(cr, 1) = "" Then
Rows(cr).Interior.ColorIndex = 15
Die Zelle kann nichtleer sein, weil deine Daten fortlaufend dorthin kopiert werden.
Damit wird die letzte zeile, also die welche gerade kopiert wurde, rot eingefärbt.
Gruss Rainer
Vielen Dank im Voraus
Olga
Gruss Rainer