Wie lösche ich via VBA in einer Tabelle sämltiche Zeilen von der aktiven Zelle beginnend bis zu der Zeile mit dem Suchtext "#DATA"
Vielen Dank
Gerhard
Sub löschen()
Dim z As Range, z1 As Long, z2 As Long
z1 = ActiveCell.Row
Set z = Cells.Find(what:="#DATA", lookat:=xlWhole, after:=ActiveCell)
If z Is Nothing Then MsgBox "nicht gefunden!": Exit Sub
z2 = z.Row - 1 'Zeile vorher?
Range(Cells(z1, 1), Cells(z2, 1)).EntireRow.Delete
End Sub
Problemstellung
Wie lege ich die Zeilenhöhe statt in Punkten in Zentimetern fest?
Problemstellung
Wenn ich in einer Tabelle den Autofilter verwende und unten eine Summe einer Spalte anzeigen lassen will, liefert SUMME() immer den Wert aller Zeilen und nicht den der gefilterten. Was mache ich falsch?
Problemstellung
Wie kann ich alle leeren Zeilen im benutzten Bereich eines Tabellenblattes löschen?
Problemstellung
Wie kann ich die Zeilen unterhalb des Cursors und die Spalten rechts des Cursors aus- bzw. einblenden?
Problemstellung
Wie kann ich einen Zeilenumbruch in einer Formel erzwingen? Ich möchte Adressdaten, die sich in den Spalten "Anrede", "Vorname", "Name", "Straße", "PLZ" und "Ort" (Spalten A-F) befinden, so verknüpfen, daß ein ordnungsgemäßes Adressfeld entsteht.
Problemstellung
Wie kann ich das Aus- und Einblenden von Zeilen und Spalten über ein Drehfeld steuern (Excel-Version XL8)?
Problemstellung
Wie kann ich in die Fußzeile des 1. Arbeitblattes jeder Arbeitsmappe, die ich öffne, den Pfad, die Seitenzahl und den UserNamen eintragen lassen?
Problemstellung
Wie kann ich Zeilen in ähnlicher Weise wie Spalten sortieren?