Bestimmten Bereich Kopieren
Carsten
habe ein kleines Problem. Ich habe eine Datentabelle wo Uhrzeit usw. hinterlegt ist.
Eine Userform a
mit Eingabe Zeit von bis
einer Listbox mit der Auswahl der Datensätze die in eine Zieltabelle kopiert werden sollen
Code ohne Uhrzeit:
Private Sub CommandButton5_Click()
Dim timefrom As String
Dim timeto As String
Sheets("Zieltabelle").Cells.Clear
Sheets("Datentabelle").Select
timefrom = a.TextBox1.Value
timeto = a.TextBox2.Value
For i = 1 To a.ListBox1.ListCount
Range("A1").Select
Do While ActiveCell.Value a.ListBox1.List(i - 1)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.EntireColumn.Select
Selection.Copy
Sheets("Zieltabelle").Select
Cells(1, i).Select
ActiveSheet.Paste
Sheets("Datentabelle").Select
Next
Sheets("Zieltabelle").Activate
End Sub
Vielleich kann man darauf ansetzen.
Mit freundlichen Grüßen
Carsten Schneider
Anzeige