Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA code für automatischen Rechts-Shift

Forumthread: 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
Anzeige

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

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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige