Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1068to1072
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

VBA code für automatischen Rechts-Shift

VBA code für automatischen Rechts-Shift
20.04.2009 11:05:39
Markus
Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Zelle S3 ist, die Zellen P3 bis V3 nach rechts verschoben werden. Ich hab das ganze schon mit dem Makro-Recorder versucht, bin aber zu keinem Ergebnis gelangt.Über jegliche Hilfe würde ich mich freuen
Danke im Voraus,
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA code für automatischen Rechts-Shift
20.04.2009 11:28:12
Reinhard
Hallo Markus,
mache bitte links und rechts von Links immer ein Leerzeichen, sonst geht der Link nicht.
(siehe https://www.herber.de/bbs/user/61304.xls )

Sub Verschieben()
Dim Zei As Long
For Zei = Range("S" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("S" & Zei).Value = "EUR" Then
Range("P" & Zei & ":V" & Zei).Cut Destination:=Range("Q" & Zei)
End If
Next Zei
End Sub


Gruß
Reinhard

AW: VBA code für automatischen Rechts-Shift
20.04.2009 11:51:57
Markus
Danke.Klappt super!
VG Markus
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige