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
984to988
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
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige