Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

1. Tabelle kopieren und neu sortiern

1. Tabelle kopieren und neu sortiern
04.09.2002 13:12:51
Diana
Hallo,

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: 1. Tabelle kopieren und neu sortiern
04.09.2002 13:17:20
Udo RiHü
Hallo,
Zeichne dir die ganze Aktion doch mit dem Makro-Recorder auf. Dann hast du es und lernst noch was dabei.
Nix für Ungut.

Gruss Udo

Re: 1. Tabelle kopieren und neu sortiern
04.09.2002 13:34:14
Carmen
Hallo Diana

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

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige