Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

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