Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Spalten Formatieren, Sortieren und Ausschneide

VBA Spalten Formatieren, Sortieren und Ausschneide
15.11.2005 08:50:43
Dave
Guten morgen,
ich habe ein Excel-Arbeitsblatt das soll nach der Spalte N sortiert werden, in den Zellen steht entweder etwas drin oder die sind leer. Danach soll die Spalte H formatiert werden, so dass die Daten die da drin stehen als Datum verwandt werden.
Das Problem muss mit VBA gelöst werden!
Vielen Dank
Dave

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Spalten Formatieren, Sortieren und Ausschneide
15.11.2005 09:04:04
achim
Bitte ein Beispiel einstellen
AW: VBA Spalten Formatieren, Sortieren und Ausschneide
15.11.2005 09:32:47
achim
Ich glaube das geht auch ohne VB.
Zunächst mache doch folgenden Versuch:
1. in der Zeile 1 für jede Spalte eine Überschrift
2. danach gehe über das Menue Daten und Filter/AutoFilter setzten
3. mit dem AutoFilter Spalte "H" auswählen und (leere) anklicken
4. Nun alle betroffenen Zellen in N markieren und das entsprechende Format einstellen
Zweite Lösung wäre VBA. Wenn gewünscht mache ich fertig und stelle noch ins Forum ein.
o.K.
gruß
achim h.
Anzeige
AW: VBA Spalten Formatieren, Sortieren und Ausschneide
15.11.2005 09:36:01
Dave
Hallo Achim,
zu erst vielen dank. Den ersten Weg kenne ich - aber ich bräuchte umbedingt die VBA Lösung. Es wäre sehr nett wenn du die posten könntest.
Viele Grüße
Dave
AW: VBA Spalten Formatieren, Sortieren und Ausschneide
15.11.2005 11:44:32
achim
Hallo
Versuch das in VB Modul ein zu fügen.Müsste klappen. viel Spaß
gruß achim h.

Sub Test()
Sheets("Tabelle1").Activate
Rows("1:1").Select
Range("E1").Activate
Selection.Insert Shift:=xlDown
ActiveWindow.ScrollColumn = 1
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
ActiveCell.FormulaR1C1 = "2"
Range("C1").Select
ActiveCell.FormulaR1C1 = "3"
Range("D1").Select
ActiveCell.FormulaR1C1 = "4"
Range("E1").Select
ActiveCell.FormulaR1C1 = "5"
Range("F1").Select
ActiveCell.FormulaR1C1 = "6"
Range("G1").Select
ActiveCell.FormulaR1C1 = "7"
Range("H1").Select
ActiveCell.FormulaR1C1 = "8"
Range("I1").Select
ActiveCell.FormulaR1C1 = "9"
Range("J1").Select
ActiveCell.FormulaR1C1 = "10"
Range("K1").Select
ActiveCell.FormulaR1C1 = "11"
Range("L1").Select
ActiveCell.FormulaR1C1 = "12"
Range("M1").Select
ActiveCell.FormulaR1C1 = "13"
Range("N1").Select
ActiveCell.FormulaR1C1 = "14"
Range("H1").Select
Selection.AutoFilter
ActiveWindow.SmallScroll ToRight:=5
Selection.AutoFilter Field:=14, Criteria1:="<>"
Range("H4:H717").Select
Selection.NumberFormat = "dd. mm. yyyy"
Selection.AutoFilter Field:=14
Range("J1").Select
Selection.AutoFilter
Rows("1:1").Select
Range("D1").Activate
Selection.Delete Shift:=xlUp
Range("N1").Select
End Sub

Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige