Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
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

Zeile verschieben Leere Zeile nicht löschen

Zeile verschieben Leere Zeile nicht löschen
24.09.2008 23:43:00
super
Hallo ich habe ein leichtes Problem
Habe eine Makro mit dem ich in einer Tabelle was suchen kann und die Zeile wird dann in eine andere tabelle verschoben.
Nun zu meinem Problem wen ich in das suchfeld nichts eingebe oder abbreche wird eine Zeile die leer ist in die tabelle2 verschoben das soll aber nicht so sein und ich bekomme keine Lösung.

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


Ich bedanke mioch schon mal für eure hilfe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile verschieben Leere Zeile nicht löschen
25.09.2008 00:17:00
Matthias
Hallo

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


Die richtigen VariablenDeklarationen für ( l, lz und z ) musst Du dann noch selbst einstellen.
Gruß Matthias

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige