ich möchte gern mit Hilfe eines Makros eine Tabelle kopieren und diese neu sortieren und dann unter einem neuen File abspeichern.
Grüße und Danke im voraus für kreative Beiträge
Di
ich möchte gern mit Hilfe eines Makros eine Tabelle kopieren und diese neu sortieren und dann unter einem neuen File abspeichern.
Grüße und Danke im voraus für kreative Beiträge
Di
Gruss Udo
Vielleicht hilft dir folgende Modul,aber keine sortierung,macht nur Kopier von Tabelle
Sub test()
'**********************
' Neues Blatt Makro ***
'**********************
Dim x As Object
Dim neu$, mldg$, title$
Dim ergebnis%, stil%
neu = InputBox("Bitte geben Sie den Namen der neuen Tabelle ein:")
If neu = ("") Then
Exit Sub
End If
For Each x In ActiveWorkbook.Sheets
If x.Name = neu Then
mldg = "Blattname existiert schon!"
stil = vbCritical + vbOKOnly
title = "A C H T U N G ! ! !"
ergebnis = MsgBox(mldg, stil, title)
Exit Sub
End If
Next x
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = neu
End Sub