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

Bestimmte Zeilen verschieben

Bestimmte Zeilen verschieben
27.04.2017 07:18:04
Lupo
Guten Morgen
Brauche einen VBA Code der folgendes macht.
Wenn in der Spalte A2:A80 das Wort "Speis" steht, dann
die ganzen Zeilen die auch alle danach nach unten verschieben.
Die Zeile wo Speis steht sollte auf der Zeile 100 stehen.
Anders. Wenn auf der Zeile A48 Speis steht, dann die Zeilen soweit nach
unten schieben bis alles nach der Zeile 100 steht.
Danke vorerst
lg

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
und die Zellen vor A48 auch mit verschieben owT?
27.04.2017 07:51:42
Matthias
AW: Bestimmte Zeilen verschieben
27.04.2017 08:19:52
Werner
Hallo Lupo,
meinst du so?
Public Sub Test()
Dim strSuchbegriff As String
Dim loFundzeile As Long
strSuchbegriff = "Speis"
With Sheets("Tabelle1")
On Error Resume Next
loFundzeile = .Columns(1).Find(what:=strSuchbegriff, LookIn:=xlValues, lookat:=xlWhole).Row
If loFundzeile > 0 Then
Rows(loFundzeile).Resize(100 - loFundzeile).Insert
Else
MsgBox strSuchbegriff & " nicht vorhanden."
End If
End With
On Error GoTo 0
End Sub
Gruß Werner
AW: Bestimmte Zeilen verschieben
27.04.2017 08:43:02
Lupo
DANKE - funtioniert lg
Gerne u. Danke für die Rückmeldung. o.w.T.
27.04.2017 09:13:57
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige