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

Nummerierung per Makro aktualisieren

Nummerierung per Makro aktualisieren
06.02.2006 14:53:49
Mark
Hallo Leute
Im Anhang habe ich eine Beispieldatei die mein kleines Problem darstellt. Kann mir einer einen Tipp geben oder ein Makrobeispiel, wie ich die Nummerierung in die richtigen Zellen bekomme. In der Datei ist der Rest erklärt...
Danke für eure Hilfe!
mfg
Mark
https://www.herber.de/bbs/user/30718.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nummerierung per Makro aktualisieren
10.02.2006 01:02:03
daniel
Hallo
einfach den gewünschten Zellbereich selektieren und dann das Makro aufrufen.
Rechts vom selektieren Bereich sollte sich aber kein Text mehr befinden, weil der beim Zellenllöschen mit verschoben wird.

Sub Umformen()
Dim Zelle As Range
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
For Each Zelle In Selection
If Zelle.Value <> "" Then Zelle.Value = Zelle.Column - Selection.Column + 1
Next
End Sub

gruß, Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige