Zeile kopieren und einfügen.
11.12.2015 15:14:56
Ole
Ich hätte gerne einen Code, mit dem ich die Zeilen wieder zurücksetzen kann.
Dazu habe ich unter der Liste eine "Hilfszeile" eingefügt, welche dann einfach kopiert und in die Zeile für den entsprechenden Mitarbeiter eingefügt werden soll.
Mein Code sieht bisher so aus:
Private Sub CommandButton1_Click()
Application.EnableEvents = False
If UserForm2.ComboBox1.Value = "" Then
MsgBox "Bitte einen Mitarbeiter auswählen"
Exit Sub
End If
For i = 2 To UP.Cells(Rows.Count, 1).End(xlUp).Row
If UP.Cells(i, 1).Value = UserForm2.ComboBox1.Value Then Exit For
Next
End Sub
Mein UserForm besteht also aus einem Button und einer ComboBox.
Wird in der ComboBox der Name ausgewählt soll mit:
For i = 2 To UP.Cells(Rows.Count, 1).End(xlUp).Row
If UP.Cells(i, 1).Value = UserForm2.ComboBox1.Value Then Exit For
Next
die Zeile für den Mitarbeiter gesucht werden.
Schätze, das sollte so funktionieren.
Wie kopiere ich jetzt aber die Hilfszeile und füge sie in die Zeile des Mitarbeiters ein?
Die Hilfszeile ist Zeile 8.