Dieses Beispiel zeigt Ihnen, wie zwei Werte in Excel VBA tauschen. Sie werden oft in komplizierteren Programme dieser Struktur brauchen, wie wir später sehen werden.

Situation:

Zwei Werte in Ihrem Arbeitsblatt.

Swap Values in Excel VBA

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir eine Variable Temp vom Typ Double genannt.

Dim temp As Double
  1. Wir initialisieren die Variable Temp mit dem Wert der Zelle A1.

temp = Range("A1").Value
  1. Nun können wir sicher den Wert der Zelle B1 schreiben Zelle A1 (wir den Wert der Zelle A1 Temp gespeichert haben, so dass wir es nicht verlieren).

Range("A1").Value = Range("B1").Value
  1. Schließlich schreiben wir den Wert der Zelle A1 (bis Temp geschrieben) auf die Zelle B1.

Range("B1").Value = temp
  1. Die Befehlstaste zweimal klicken.

Ergebnis:

Swap Values Result

Swap Values Result