Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
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
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Teilung aufheben mit With ActiveWorkbook

Teilung aufheben mit With ActiveWorkbook
12.01.2006 07:38:38
Peter
Guten Tag
Ich möchte in .Sheets(1) [vgl. Code am Ende des Threads] die Teilung aufheben. Wenn man das mit dem Macro Recorder aufzeichnet, sieht das wie folgt aus:
With ActiveWindow
.SplitColumn = 0
.SplitRow = 0
End With
Da jedoch beim Ablaufen meines Codes wohl das Fenster nicht aktiv ist, müsste ich wohl den Befehl in die bestehende Schlaufe integrieren können. Dies ist mir jedoch nicht gelungen. Kann mir jemand weiterhelfen?
Danke und freundlicher Gruss
Peter
With ActiveWorkbook
.Sheets(1).Columns("A:D").Delete
.Sheets(1).Columns("Q:R").Delete
.Sheets(1).Columns("T:U").Delete
.Sheets(1).Rows("3:4").Delete
.Sheets(1).Copy after:=.Sheets(1)
.Sheets(1).Cells.ClearFormats
end with

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teilung aufheben mit With ActiveWorkbook
12.01.2006 08:09:21
DieterB
Hallo Peter,
versuch's mal damit:

Sub aufheben()
With ActiveSheet
Columns("A:D").Delete
Columns("Q:R").Delete
Columns("T:U").Delete
Rows("3:4").Delete
Cells.ClearFormats
End With
With ActiveWindow
.SplitColumn = 0
.SplitRow = 0
End With
End Sub

Gruß DieterB
AW: Teilung aufheben mit With ActiveWorkbook
12.01.2006 09:23:06
Peter
Hallo Dieter
Danke für den Hinweis.
Peter
AW: Teilung aufheben mit With ActiveWorkbook
12.01.2006 08:14:18
Harald
Moin Peter,
das betreffende Blatt muss vorher per Activate angewählt werden.
Kleine Anmerkung:
Sheets(1).Range("A:D,Q:R,T:U").Delete
Gruss Harald
AW: Teilung aufheben mit With ActiveWorkbook
12.01.2006 09:21:41
Peter
Hallo Harald
Danke für den Hinweis und die Anmerkung.
Das hat mir weitergeholfen.
Gruss, Peter
Anzeige
und Danke für die Rückmeldung owT
12.01.2006 09:25:06
Harald
Gruss Harald

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige