AW: Verschieben von Datensätzen in Tabellen(>100)
23.12.2003 14:21:07
Meinolf
Hallo Jusuf,
habe eine Lösung gefunden,
war nicht ganz einfach weil ich das ganze nicht auf best. Blattnamen usw. festmachen wollte.
Sonst versuchs mal so:
1) in Arbeitsblatt einfügen
Sub zeilekopieren()
x11 = ActiveCell.Row 'reihe in x11 speichern
Range("e2") = x11 'quelle Zeile speichern
ActiveCell.EntireRow.Copy
Zform.Show modal
End Sub
2) user form mit 2 buttons erstellen (zform genannt)
OK button
Private Sub CommandButton1_Click()
Unload Zform
x4 = MsgBox("Zeile einfügen", vbYesNo)
If x4 = 6 Then
x2 = ActiveCell.Row 'reihe in x2 speichern
Range("e3") = x2 'quelle Zeile speichern
Range("a1").Select
x1 = Range("e3") '
x34 = Range("e2")
ActiveCell.Offset(x1 - 1, 0).Select
Selection.EntireRow.Insert
ActiveCell.EntireRow.Copy
x25 = Sheets.Count
For x = 2 To x25
Worksheets(x).Select
Range("a1").Select
ActiveCell.Offset(x1 - 1, 0).Select
Selection.EntireRow.Insert
ActiveCell.EntireRow.Copy
'ActiveSheet.Paste
Next
End If
For x = 1 To x25
Worksheets(x).Select
Range("a1").Select
ActiveCell.Offset(x34 - 1, 0).Select
Selection.EntireRow.Delete
'Range("a1").Select
Application.CutCopyMode = False
Next
Worksheets(1).Select
End Sub
Abbrechen button
Private Sub CommandButton2_Click()
Application.CutCopyMode = False
Unload Zform
End Sub
Am einfachsten wäre es ich sende dir mir meine Muster Datei. Dazu bräuchte ich deine email-Adresse.
Mfg Meinolf