Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 20:08:47
Datum/Zeit in einer Zelle fixieren über Makros
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
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
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten A und B wechselseitig aktualisieren

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten A und B wechselseitig aktualisieren
17.01.2024 19:24:44
Yal
Hallo Adron,

probiere mit 
Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Row = 5000 Then ' nur in Zeilen 1-5000

        If Target.Column = 1 Then Target.Offset(, 1).Value = Target.Value 'Spalte B übernimmt Wert von Spalte A

        If Target.Column = 2 Then Target.Offset(, -1).Value = Target.Value 'Spalte A übernimmt Wert von Spalte B

    End If

    Application.EnableEvents = True

End Sub

Die Prüfung der Zeile 1-5000 könnte man sich auch sparen, wenn es nur darum geht, die eventuell unterste Eingabe damit auch zu erwischen.

VG
Yal
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige