VBA Formatübernahme in nächste Zeile
15.10.2016 20:42:54
Andreas
wer kann helfen, meinen Code von einer "WEITER" CMD für folgende Funktionen anzupassen.
Folgendes geht! >Start ist immer in Spalte C Bei Klick auf "WEITER" werden die Daten in die entsprechenden Zellen übertragen- es wird in die darunterliegende Spalte C weiter gesprungen. Dort können weitere Eingaben ausgeführt werden. Dabei färbt sich immer die Spalte A grün, damit ich sehe- ok erledigt.
*Änderung 1
Nun kann es passieren, das in der Spalte A , dort wird die laufende Nummer angezeigt, die Nummerierung zu Ende geht. Dann soll für gleich zwei darunter liegende Zeilen die Nummern fortlaufend um ein erhöht werden.
*Änderung 2
Ist es auch möglich , die Formatierung der Zellen, wie auch die Rahmen von der vorhergehenden Zeile darüber mit zu Übernehmen. Ähnlich dem "Format-Pinsel".
Jedoch ohne Inhalte, diese werden ja über die Userform eingetragen.
Die Zellen werden von oben nach unten abgearbeitet und es handelt sich immer um die Spalten A:N.
In Spalte A steht abwärts die Laufende Nr.
Private Sub CommandButton19_Click()
Dim z As Long
Dim r As Long
Range(TextBox19.Value) = TextBox17.Value
Range(TextBox15.Value) = TextBox16.Value
' ich kommentiere das mal aus...
'z = Cells(ActiveCell.Row, "A") 'aktuelle Lfd. Nr
'r = ZeilenNr(z + 1) 'zutreffende Zeilen# der nächsten Lfd. Nr
'Cells(r, ActiveCell.Column).Select 'auf nächste Zeile positionieren
' ... weil das so gedacht war:
Cells(ActiveCell.Row, 1).Interior.Color = vbGreen ' erst das Grün
If (ActiveCell.Row Mod 1) 0 Then
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(1).Select
End If
End Sub
Kann mir jemand beim Code- Umstellen helfen?
LG Andi
Anzeige