Makros für Sortieren

[Karin]

Hallo Gast123,

vielen Dank für deine Mühe und deine Vorschläge :) , ich würde auf jeden Fall ausprobieren und melde mich wieder.

[Karin]

Hallo Wastl,

Danke für dein Vorschlag. Ich habe Makro für Zeilen einfügen umgestellt.

Private Sub CommandButton1_Click()
Dim Adresse As String
Application.ScreenUpdating = False

Sheets(Array("Tabelle5", "Tabelle6", "Tabelle7")).Select
Sheets("Tabelle5").Activate

Dim Zeile As Long

With ActiveSheet
   'Zeilennummer:
   Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
   'Kopieren:
   Intersect(.Rows(Zeile - 1), .UsedRange).Copy
   .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormats            'Formate
   .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormulas           'Formeln
   Application.CutCopyMode = False
   
   'Werte löschen
   Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
   
   'Nummer in Spalte A:
   .Cells(Zeile, 1).Value = .Cells(Zeile - 1, 1).Value + 1
   
   'Datum in Spalte B:
   .Cells(Zeile, 2).Value = Date

   End With
   
Sheets("Tabelle5").Select
Range(Adresse).Offset(1, 0).Select
Application.ScreenUpdating = True


Es funktioniert so wie ich es wollte, aber es wird mir immer ein Fehler angezeigt, da wo ich rot markiert habe (Laufzeitfehler 1004 :die Methode 'Range' für das Objekt'_Worksheet' ist fehlgeschlagen)
Nach dem, dass ich Debugger beende, ist alles in Ordnung. Was habe ich den falsch gemacht?

[Wastl]

hi,

Sheets("Tabelle5").Select

Range(Adresse).Offset(1, 0).Select

ich tippe mal, dass es so richtig ist:

Sheets("Tabelle5").Range(Adresse).Offset(1, 0).Select

[Kuwer]

Hallo,

die Variable Adresse ist doch leer, da sie nirgends mit Inhalt gefüllt wird.

Gruß Uwe