Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

Zellinhalt tauschen in wenn B1>C1 fortlaufend

Zellinhalt tauschen in wenn B1>C1 fortlaufend
16.12.2013 15:52:26
Thorben
Moinsen Freunde,
ich habe wieder eine Frage und mir kommt die Antwort nicht:
Ich habe 2 Spalten:
B1:C bis letzte...
Vergleiche alle Zellinhalte und da wo B ist größer C (immer in Abhängigkeit der Nachbarzelle) ist, tausche den Zellinhalt! Also schreibe den Inhalt von z.B. C344 nach B344 und von B344 nach C344 usw.
Könnt Ihr mir sagen wie so etwas in VBA geht.
Meine Versuche sind gescheitert.
Danke schonmal und Gruß
MfG
Thorben

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

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt tauschen in wenn B1>C1 fortlaufend
16.12.2013 15:57:31
Rudi
Hallo,
Sub tauschen()
Dim rngC As Range, Tmp
Application.ScreenUpdating = False
For Each rngC In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
If rngC > rngC.Offset(, 1) Then
Tmp = rngC
rngC = rngC.Offset(, 1)
rngC.Offset(, 1) = Tmp
End If
Next
End Sub

Gruß
Rudi

AW: Zellinhalt tauschen in wenn B1>C1 fortlaufend
16.12.2013 16:10:13
UweD
ausser Wertung...
eine Formellösung...
Tabelle1
 BCDE
12005151200
215012121501212
31232311211212323
41541414154

verwendete Formeln
Zelle Formel Bereich
D1 =MIN(B1:C1) 
E1 =MAX(B1:C1) 

Tabellendarstellung in Foren Version 5.49


Gruß UweD

Anzeige
Danke nochmal !!!
20.12.2013 13:56:48
Thorben
Danke nochmal Ihr beiden.
MfG
Thorben

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige