Office: (Office 2010) Inhalte von Zellen austauschen

speedy17x · 19. September 2019

Hallo,

ich möchte gerne per Button oder Dropdownliste Spiele wo auf Lager sind (Abteil2) auswählen und in Abteil 1 setzen. automatisch soll dann das Spiel von Abteil 1 auf den Platz von dem Spiel in Abteil 2

also effektiv möchte Ich ein Spiel in Abteil 2 auswählen und dies soll in Abteil 1 eingesetzt werden wobei automatisch die Zelleninhalte getauscht werden.

Würde mich sehr freuen wenn ihr mir helfen könntet.*Smilie

:)

Mase · 21. September 2019

Hi,

der folgende Code reagiert, wenn Du in Abteilung 1 eine Zelle markierst und im Lager eine Zelle markierst.
Beim Button-Klick, tauchst er diese beiden Zellen und die Zellen die eins rechts daneben sind miteinander.

Code:

Sub subTausche()
Dim s(1 To 4) As Variant
With Selection
If .Areas.Count = 2 And .Cells.Count = 2 Then
s(1) = .Areas(1).Cells(1, 1).Value
s(2) = .Areas(1).Cells(1, 1).Offset(0, 1).Value
s(3) = .Areas(2).Cells(1, 1).Value
s(4) = .Areas(2).Cells(1, 1).Offset(0, 1).Value
'tauschen
.Areas(1).Cells(1, 1).Value = s(3)
.Areas(1).Cells(1, 1).Offset(0, 1).Value = s(4)
.Areas(2).Cells(1, 1).Value = s(1)
.Areas(2).Cells(1, 1).Offset(0, 1).Value = s(2)
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hinweis:
Auf Fehlerbehandlung oder weiteres Abfangen von potentiellen Fehlerquellen wurde verzichtet.

speedy17x · 22. September 2019

WOW Super genau so habe ich mir das vorgestellt.
Vielen Dank

Noch eine kleine Frage
Welche werte muss ich ändern wenn ich im Lager ein Spiel dazu nehmen möchte und welchen wert muss ich ändern wenn auch weitere Zellen nach rechts mitgetauscht werden sollen?

Vielen Dank

Mase · 22. September 2019

Gerne.

Cells() und Offset() sind die Werte, welche zu verändern sind.

speedy17x · 22. September 2019

Hi,

Es funktioniert alles super bloß verstehe ich noch eins nicht
und zwar ist im Offset (0, 1) das bestimmt die 2 Zelle Hinter dem Wert wo Markiert ist oder?
setze ich jetzt (0, 2) lässt es eine Zelle aus und tauscht die zweite zelle mit.

Wie bekomme Ich jetzt hin das er die erste Zelle bis zu 3 alles Tauscht?

Vielen Dank im voraus

Mase · 22. September 2019

Hi,

hier gehts zur Onlinehilfe.

speedy17x · 23. September 2019

Hi,

hab es mir durchgelesen und mir ist bewusst das ich bei dem Offset (0, 1)
die Zelle und die nächste Zelle damit bestimme die getauscht werden muss.

aber ich komme nicht darauf wie ich es verändere wenn ich wie in meiner Bsp. Mappe1 eine ganze reihe tauschen lassen möchte.

könntest du mir da bitte nochmals unterstützen oder mir einen tipp geben

Vielen Dank

Mase · 12. Januar 2021

von speedy17x

Hi,

hab es mir durchgelesen und mir ist bewusst das ich bei dem Offset (0, 1)
die Zelle und die nächste Zelle damit bestimme die getauscht werden muss.

Vielen Dank
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nicht ganz.
Vielleicht helfen Dir die Kommentare weiter.
Hinweis:
Wenn Du mehr Zellen verwenden möchtest, brauchst Du weitere Variablen und weiteren Code.
Ich habe Dir mal eine weitere Zelle dazugeschrieben.

Schau Dir einfach das Muster ab - es ist keine Hexerei *Smilie

Code:

Sub subTausche()
Dim s(1 To %) As Variant
With Selection
If .Areas.Count = 2 And .Cells.Count = 2 Then
'Zellwerte in einer Variablen merken
s(1) = .Areas(1).Cells(1, 1).Value '--> die zuerst markierte Zelle
s(2) = .Areas(1).Cells(1, 1).Offset(0, 1).Value 'ein Zelle neben der zuerst markierten Zelle
s(5) = .Areas(1).Cells(1, 1).Offset(0, 2).Value 'zwei Zellen neben der zuerst markierten Zelle
s(3) = .Areas(2).Cells(1, 1).Value ' die zweit markierte Zelle
s(4) = .Areas(2).Cells(1, 1).Offset(0, 1).Value ' eine Zelle neben der als zweites markierten Zelle

'tauschen
.Areas(1).Cells(1, 1).Value = s(3)
.Areas(1).Cells(1, 1).Offset(0, 1).Value = s(4)
.Areas(1).Cells(1,1).Offset(0, 2).value = s(5)
.Areas(2).Cells(1, 1).Value = s(1)
.Areas(2).Cells(1, 1).Offset(0, 1).Value = s(2)
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Inhalte von Zellen austauschen

Inhalte von Zellen austauschen

Inhalte von Zellen austauschen

Inhalte von Zellen austauschen

Inhalte von Zellen austauschen

Inhalte von Zellen austauschen - Similar Threads - Inhalte Zellen austauschen

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Inhalt Zelle inkl. bedingter Formatierung übernehmen

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle

Zellen Inhalt zurückgeben