Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro vereinfachen

Makro vereinfachen
02.02.2007 08:29:43
tobstein
Hallo,
ich habe mir mühsam ein Makro geschrieben...in dem unter anderen die folgende
Anweisung vorkommt.
Die Felder S7 bis AK7 werden grau gefärbt...und natürlich alle anderen ungeraden Zeilen.
Aber kann man das nicht irgendwie einfacher schreiben...also die erste Zeile und nur die letzte Zeile angeben (etwa S7:AK7 - S55:AK55)...
Danke
tobstein
Range( _
"S7:AK7,S9:AK9,S11:AK11,S13:AK13,S15:AK15,S17:AK17,S19:AK19,S21:AK21,S23:AK23,S25:AK25,S27:AK27,S29:AK29,S31:AK31,S33:AK33,S35:AK35,S37:AK37,S39:AK39,S41:AK41,S43:AK43,S45:AK45,S47:AK47,S49:AK49,S51:AK51,S53:AK53,S55:AK55" _
).Select

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

Betreff
Datum
Anwender
Anzeige
AW: Makro vereinfachen
02.02.2007 08:59:30
Harald
Moin tobstein
vielleicht so ?
Dim i As Integer
For i = 7 To 55 Step 2
Range("S" & i & ":AK" & i).Interior.ColorIndex = 15
Next i
Gruss Harald
AW: Makro vereinfachen
02.02.2007 09:21:05
tobstein
Hallo Harald,
veieln Dank für Deine Antwort.
Habe Deinen Teil in mein Makro eingebaut...allerdings wird jetzt alles grau eingefärbt.
Hier mal mein Original-Makro, vielleicht hilft das ein wenig.
tobstein

Sub tagessieger_rr_sortieren()
' tagessieger_rr_sortieren Makro
' Makro am 01.02.2007 von U330006 aufgezeichnet
' Tastenkombination: Strg+r
Range("S6:AK57").Select
Selection.Copy
Sheets("tagessieger_rr_sortiert").Select
Range("S6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
Selection.Sort Key1:=Range("S6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range( _
"S7:AK7,S9:AK9,S11:AK11,S13:AK13,S15:AK15,S17:AK17,S19:AK19,S21:AK21,S23:AK23,S25:AK25,S27:AK27,S29:AK29,S31:AK31,S33:AK33,S35:AK35,S37:AK37,S39:AK39,S41:AK41,S43:AK43,S45:AK45" _
).Select
Range("S45").Activate
Range( _
"S7:AK7,S9:AK9,S11:AK11,S13:AK13,S15:AK15,S17:AK17,S19:AK19,S21:AK21,S23:AK23,S25:AK25,S27:AK27,S29:AK29,S31:AK31,S33:AK33,S35:AK35,S37:AK37,S39:AK39,S41:AK41,S43:AK43,S45:AK45,S47:AK47,S49:AK49,S51:AK51,S53:AK53,S55:AK55,S57:AK57" _
).Select
Range("S57").Activate
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("S4").Select
End Sub

Anzeige
AW: Makro vereinfachen
02.02.2007 09:32:15
Harald
Hi,
falls das so eingefügt wurde, sehe ich keinen Grund (ausser verbundenen Zellen) warum das nicht funzen sollte

Sub tagessieger_rr_sortieren()
' tagessieger_rr_sortieren Makro
' Makro am 01.02.2007 von U330006 aufgezeichnet
' Tastenkombination: Strg+r
Dim i As Integer
Range("S6:AK57").Copy
Sheets("tagessieger_rr_sortiert").Select
Range("S6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.Interior.ColorIndex = xlNone
Selection.Sort Key1:=Range("S6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
For i = 7 To 55 Step 2
Range("S" & i & ":AK" & i).Interior.ColorIndex = 15
Next i
Range("S4").Select
End Sub

Gruss Harald
Anzeige
AW: Makro vereinfachen
02.02.2007 09:07:22
IngGi
Hallo tobstein,
ich bin jetzt davon ausgegangen, dass Anfangs- und Endzeile feststehen.

Sub Auswahl()
Dim rng As Range
Dim ze As Long
For ze = 7 To 55 Step 2
   If rng Is Nothing Then
      Set rng = Range(Cells(ze, 19), Cells(ze, 37))
   Else
      Set rng = Union(rng, Range(Cells(ze, 19), Cells(ze, 37)))
   End If
Next 'ze
rng.Select
End Sub
Wobei du auf das Select verzichten und gleich mit "rng.Interior.ColorIndex = 5" die Zellen einfärben kannst.
Gruß Ingolf
Anzeige
AW: Makro vereinfachen
02.02.2007 09:31:12
tobstein
Hallo Ingolf,
danke....Deine Lösung funktioniert einwandfrei.
So hatte ich mir das vorgestellt...
tobias

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige