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

Zelleninhalte um eine Spalte verschieben?

Zelleninhalte um eine Spalte verschieben?
03.01.2013 23:30:40
Selma
Hallo Leute,
ich möchte in aktivem Arbeitsblatt folgendes erreichen:
Es soll in aktivem Arbeitsblatt geprüft werden, ob es in der Spalte B Zellen gibt deren Inhalt mit "id" beginnt. Für alle gefundenen Zellen gilt folgendes:
Zellinhalt von Spalte B bis letzte benutzte Spalte dieser Zeile markieren und dann um eine Spalte nach links verschieben.
Wie mache ich das bitte per VBA?
Vielen Dank vorab!
Gruß,
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte um eine Spalte verschieben?
04.01.2013 00:37:16
Franc
Hmm ... mit dem Suchbefehl + verschieben läufts immer auf Fehler.
Ist vielleicht nicht die schönste/schnellste Lösung aber sie sollte funktionieren.
Sub suchen_verschieben()
Application.ScreenUpdating = False
dZeile = Cells(Rows.Count, 2).End(xlUp).Row
For Each Zelle In ActiveSheet.Range("B1:B" & dZeile)
If LCase(Left(Zelle, 2)) = "id" Then
Range(Cells(Zelle.Row, 2), Cells(Zelle.Row, Columns.Count).End(xlToLeft)).Cut _
Cells(Zelle.Row, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

AW: Zelleninhalte um eine Spalte verschieben?
04.01.2013 18:33:08
Selma
Hallo Franc,
vielen Dank!
Gruß,
Selma
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige