Spalte A automatisch füllen

Forumthread: Spalte A automatisch füllen

22.01.2025 20:22:16

Klaus B aus D

Guten Tag,

ich wundere mich, warum keine automatische Spaltenfüllung in A (Titel: StartNr) erfolgt, wenn ich in Spalte B (Titel: TN) einen Eintrag ergänze.
Der Code in Modul1 von Tabelle1:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        Dim lastRow As Long

        lastRow = Cells(Rows.Count, "B").End(xlUp).Row

        Range("A3:A" & lastRow).Formula = "=IF(B3>"""",A2+1,A2)"

        Range("A3:A" & lastRow).Value = Range("A3:A" & lastRow).Value 'Formeln in Werte umwandeln

    End If

End Sub

Zeile 1 enthält Spaltenüberschriften. Den Eintrag "1" gebe ich in A2 manuell ein. Ich möchte gemäß Code den nächsten Zellenwert in der Spalte "StartNr" autom. um "1" erhöhen, sobald in Spalte "TN" in derselben Zeile ein weiterer Eintrag erfolgt.
Wo liegt der Gedankenfehler?

Gruß Klaus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalte A automatisch füllen

22.01.2025 20:37:10

Onur
AW: Spalte A automatisch füllen

22.01.2025 23:07:27

GerdL
AW: Spalte A automatisch füllen

23.01.2025 02:40:22

Klaus B aus D
AW: Spalte A automatisch füllen

22.01.2025 20:38:07

Onur

AW: Spalte A automatisch füllen

22.01.2025 20:37:10

Onur

Wozu VBA?
Einfach "intelligente" Tabelle daraus machen und in A2 die Formel
=ZEILE()-1
eingeben.

AW: Spalte A automatisch füllen

22.01.2025 23:07:27

GerdL

Moin Klaus,

eine formelfreie Freihandzeichnung.

Private Sub Worksheet_Change(ByVal Target As Range)

    

    Dim lastRow As Long, num As Long, a As Long

    On Error GoTo fin

    num = 1

    If Not Intersect(Target, Range("B:B")) Is Nothing Then

        lastRow = Cells(Rows.Count, "B").End(xlUp).Row

        Application.EnableEvents = False

        For a = 3 To lastRow

            If Cells(a, "B") > "" Then

                num = num + 1

                Cells(a, 1) = num

            Else

                Cells(a, 1) = ""

            End If

        Next

    End If

fin:

    Application.EnableEvents = True



End Sub

Gruß Gerd

AW: Spalte A automatisch füllen

23.01.2025 02:40:22

Klaus B aus D

Hallo Gerd,

ich habe deinen Vorschlag umgesetzt und ein klein wenig modifiziert, um bereits ab der Zelle A2 die "Autowert-Vergabe" starten zu lassen.

Danke sehr und Dank auch an Onur, dessen Vorschlag selbst in einer "nicht-intelligenten" Tabelle funktioniert. Allerdings müssen die Zellen in Spalte A dann kopiert werden, so dass sie bereits gefüllt sind, bevor ein Eintrag in Spalte B vorgenommen wird.

Gruß Klaus

AW: Spalte A automatisch füllen

22.01.2025 20:38:07

Onur

Siehe Thread 3 Spalten weiter unten.

Forumthread: Spalte A automatisch füllen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread