Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mindestwert für letzte Zelle

Forumthread: Mindestwert für letzte Zelle

Mindestwert für letzte Zelle
17.06.2008 05:32:00
Borimir
Hallo zusammen,
ich möchte ab per VB alle Zellen von A6 bis zur letzten gefüllten Zelle löschen (um das Eingabefeld in einer Vorlage zu leeren).
Habe dafür diesen Befehl:
Range("A6:G" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.ClearContents
Wenn die Zellen leer sind (also A6 und folgende) löscht Excel leider auch die Zellen davor (Die Zellen A1 bis A5 sind gefüllt und sollen dies auch bleiben).
Gibt es eine Möglichkeit hier sozusagen ein Mindestwert zu setzen?
lg und schon einmal vielen Dank!
Borimir

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mindestwert für letzte Zelle
17.06.2008 06:36:00
Tino
Hallo,
ist es so von Dir gemeint?
Range("A6", Cells(Rows.Count, 7)).ClearContents
Gruß Tino

www.VBA-Excel.de


AW: Mindestwert für letzte Zelle
17.06.2008 06:36:00
Luschi
Hallo Borimir,
ich würde es so machen:
Dim n As Long
n = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If n > 5 Then
   Activesheet.Range("A6:G" & n).ClearContents
End If
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Mindestwert für letzte Zelle
17.06.2008 07:41:00
Gerd
Hallo Boromir!

Sub a()
With ActiveSheet
.Range(.Cells(6, 1), .Cells(Application.Max(6, .Cells(Rows.Count, 1).End(xlUp).Row), 7)). _
ClearContents
End With
End Sub


Gruß Gerd

AW: Mindestwert für letzte Zelle
17.06.2008 08:26:54
Borimir
Funktioniert alles!
Vielen Dank für die schnelle Hilfe!!!
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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