Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro Modifikation gesucht

Makro Modifikation gesucht
06.08.2003 16:38:54
Dominik
Hallo!
Ich habe folgendes Makro:

Sub Schritt3()
'Fügt gelbe Zeilen ein und formatiert Zellen'
Dim blnnext As Boolean
Dim r As Range
Dim rngGesamt As Range
blnnext = True
Set rngGesamt = Range(Range("A1"), Range("A1").End(xlDown))
For Each r In rngGesamt
If r.Value = 1 Then
If blnnext Then
blnnext = False
r.EntireRow.Insert xlUp
r.Offset(-1).EntireRow.Interior.ColorIndex = 6
r.Offset(-1).EntireRow.Interior.Pattern = xlSolid
End If
Else
blnnext = True
End If
Next
Columns("A:A").ColumnWidth = 7
Columns("B:B").ColumnWidth = 15
Columns("C:C").ColumnWidth = 34
Columns("D:D").ColumnWidth = 34
Columns("E:E").ColumnWidth = 34
Columns("A:E").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
End Sub

Das Makro fügt über der jeweils Obersten "1" eine gelbe Zeile ein.
Funktioniert auch wunderbar, nur sobald in SpalteA eine leere Zelle
vorhanden ist, wird dieser Prozess abgebrochen.
Kann man das Makro so umschreiben, dass leere Zellen einfach übersprungen
werden und der Prozess fortgeführt wird?
MfG
Dominik

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Modifikation gesucht
06.08.2003 17:17:10
Michael Schirow
Hi Dominik,
wie wäre es mit:
...
Set rngGesamt = Range(Range("A1"), Range("A65536").End(xlUp))
...
(ungetestet)
HTH, Michael

AW: Makro Modifikation gesucht
06.08.2003 17:29:54
Koenig W.
Hallo Dominik,
Dein Code kommt nicht mit Text oder Leerstring zurecht.
Das heisst Du musst den Fehler abfangen und das dort, wo Du den blnext auf True setzen kannst. Zusätzlich musst Du den Bereich so definieren, dass er über alle gebrauchten Zeilen geht, und nicht nur bis zur ersten Lücke.
Also so geht es bei mir

Sub Schritt3()
'Fügt gelbe Zeilen ein und formatiert Zellen'
Dim blnnext As Boolean
Dim r As Range
Dim rngGesamt As Range
blnnext = True
Set rngGesamt = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For Each r In rngGesamt
On Error GoTo sprung
If r.Value = 1 Then
If blnnext Then
blnnext = False
r.EntireRow.Insert xlUp
r.Offset(-1).EntireRow.Interior.ColorIndex = 6
r.Offset(-1).EntireRow.Interior.Pattern = xlSolid
End If
Else
sprung:
blnnext = True
End If
Next
End Sub

Gruss Wilhelm

Anzeige
AW: Makro Modifikation gesucht
06.08.2003 17:45:21
Dominik
Funktioniert! Super, vielen Dank!
MfG
Dominik

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige