Swap-Werte in Excel VBA
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.
Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:
-
Zuerst erklären wir eine Variable Temp vom Typ Double genannt.
Dim temp As Double
-
Wir initialisieren die Variable Temp mit dem Wert der Zelle A1.
temp = Range("A1").Value
-
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
-
Schließlich schreiben wir den Wert der Zelle A1 (bis Temp geschrieben) auf die Zelle B1.
Range("B1").Value = temp
-
Die Befehlstaste zweimal klicken.
Ergebnis: