Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Formatübernahme in nächste Zeile
15.10.2016 20:42:54
Andreas
Guten Abend,
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

    1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige

    324 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige
    Anzeige
    Anzeige

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige