Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.03.2024 14:58:14
19.03.2024 13:26:50
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige