Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte tauschen

Werte tauschen
25.11.2019 16:35:20
Fernando Cordon

Hi allerseits,
ich möchte in einer Spalte in der Werte stehen mittels 2 Buttons und VBA die werte einer manuell selektierten Zelle schrittweise nach oben oder unten verschieben können so das der Wert oberhalb oder unterhalb der manuell selektierten Zelle mit dem Wert der manuell selektierten Zelle getauscht wird.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte tauschen
25.11.2019 16:50:55
UweD
Hallo
- füge 2 ActiveX Buttons auf der Seite ein
- dann Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- ins Fenster reinkopieren
Option Explicit

Private Sub CommandButton1_Click() 'nach oben 
    With Selection
        .Cut
        .Offset(-1, 0).Insert Shift:=xlDown
    End With

End Sub

Private Sub CommandButton2_Click() 'nach unten 
    With Selection
        .Cut
        .Offset(2, 0).Insert Shift:=xlDown
    End With

End Sub

LG UweD
Anzeige
AW: Werte tauschen
27.11.2019 13:19:59
Fernando Cordon
Danke vielmals. Ich habe meine Code durch Deinen getauscht und noch bisschen ergänzt damit der Cursor mit dem kopierten Wert mitwandert. 
Option Explicit
Private Sub nach_oben() 'nach oben
With Selection
.Cut
.Offset(-1, 0).Insert Shift:=xlDown
.Offset(0, 0).Select
End With
End Sub
Private Sub nach_unten() 'nach unten
With Selection
.Cut
.Offset(2, 0).Insert Shift:=xlDown
.Offset(0, 0).Select
End With
End Sub

AW: Werte tauschen
25.11.2019 16:55:13
volti
Hallo Fernando,
meinst Du das so:
Sub VerschiebeRunter()
 Dim Wert  As Variant
 With Selection
  If .Count = 1 Then
    Wert = .Offset(1, 0).Value
    .Offset(1, 0).Value = .Offset(0, 0).Value
    .Offset(0, 0).Value = Wert
  End If
  .Offset(1, 0).Select
 End With
End Sub
Sub VerschiebeHoch()
 Dim Wert  As Variant
 With Selection
  If .Count = 1 Then
    Wert = .Offset(-1, 0).Value
    .Offset(-1, 0).Value = .Offset(0, 0).Value
    .Offset(0, 0).Value = Wert
  End If
  .Offset(-1, 0).Select
 End With
End Sub
viele Grüße
Karl-Heinz

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige