Guten Abend ihr fleissigen Helfer,
Ich stehe wieder mal auf dem Schlauch und bitte um Hilfe.
Ich möchte die Spalte "C7" von 1 bis ... numerieren und weiss
markieren, in Abhängikeit der letzten belegten Zeile in Spalte "AF".
Ich hoffe, ich habe es verständlich genug beschrieben ?
Mit dankbaren Grüssen
Martin
Hallo,
hast du nicht, C7 ist eine Zelle, keine Spalte. Was meinst du mit "weiss markieren"?
Hallo Martin,
falls ich es richtig verstanden habe, wäre es sinngemäß mit der Möglichkeit das flexibel in weiteren funktional ähnlichen Teilen deines Projektes zu verwenden so machbar:
Code:
Private Sub ZahlenSchreiben()
NummernLauf Tabelle2, 3, 7, 1, Tabelle2.Cells(Rows.Count, 32).End(xlUp).Row
End Sub
Sub NummernLauf(Wks As Worksheet, Spalte As Long, StartZeile As Long, Startnummer As Long, Endzeile As Long)
Dim i&
For i = StartZeile To Endzeile
Wks.Cells(i, Spalte) = Startnummer
Wks.Cells(i, Spalte).Interior.Color = xlNone
Startnummer = Startnummer + 1
Next i
End Sub
Dazu ruft du in deiner Sub den NummernLauf auf, drückst die Leertaste und trägst dann die nun geforderten Parameter mit Komma getrennt dahinter ein. Ich hoffe du kommst damit zurecht. Mit Kanonen nach Spatzen geschossen könnte man auch eine kleine Funktion mit Rückgabe via Array draus machen.
Gruß Uwe
Hallo
ich habe die Aufgabe anders verstanden, hier mal mein Code:
mfg Gast 123
Code:
Sub Weiss_markieren()
lz1 = Cells(Rows.Count, 32).End(xlUp).Row
Range("C7") = 1
Range("C7:C" & lz1).DataSeries Type:=xlLinear, Step:=1
Range("C7:C" & lz1).Interior.ColorIndex = 2
End Sub
Guten Abend Klaus-Dieter
Über eine "Sub Worksheet_Change(ByVal Target As Range)" Anweisung
werden alle geänerten Daten farblich markiert. Darum muss die Spalte "C"
wieder auf weiss geänert werden.
Danke für deine Mühe. Das Makro von Gast123 funktioniert.
Gruss Martin
Guten abend Uwe
danke für dein Makro. Habe anscheinend nicht richtig kommuniziert,
darum ist es nicht das, was ich gesucht habe. Makro von Gast123
funtioniert.
Gruss Martin
Guten abend Gast123
für das Makro. Hast es richtig verstanden.
Funktioniert perfekt.
Gruss Martin