Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verschieben

Forumthread: Zeilen verschieben

Zeilen verschieben
22.04.2006 18:16:44
Silke
Hallo
ich habe ein kleines Problem, um meine Liste ordentlich zu sortieren möchte ich per inputbox ein Suchkriterium eingeben , was dann in Tabelle 1 in Spalte A gesucht wird, um es dann in Tabelle 2 zu verschieben so das sie nicht mehr in Tabelle 1 zu finden sind
Ich hoffe ihr könnt mir weiterhelfen
Gruss Silke
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verschieben
22.04.2006 20:56:13
Beni
Hallo Silke,
Gruss Beni

Sub Zeile_verschieben()
Wert = InputBox(prompt:="Suchbegriff eigeben")
Set w = Columns(1).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not w Is Nothing Then
z = w(1, 1).Row
lz = Sheets("Tabelle2").Cells(65536, 1).End(xlUp).Row + 1
Rows(z).Cut Sheets("Tabelle2").Cells(lz, 1)
Rows(z).Delete Shift:=xlUp
Else
MsgBox "Suchbegriff nicht vorhanden"
End If
End Sub

Anzeige
AW: Zeilen verschieben
23.04.2006 00:21:53
Silke
DAnke das werde ich ausprobieren
Gruss Silke
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige