Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle selektiren und löschen

Forumthread: Zelle selektiren und löschen

Zelle selektiren und löschen
16.06.2007 13:49:29
pbm
Hallo,
folgendes Problem. Habe durch eine AutoFill-Fuktion 2 Zeilen zuviel in einer Matrix. Das Auffülen ist dynamisch und nicht immer in einer fixen Spalte - solange in Spalte B werte zu finden sind, wird aufgefüllt. Nun würde ich gerne von einer aktiven Zelle ausgehend nach unten gehen und die letzten beiden Zeilen löschen.
Schaffe es leider nicht über die Befehle ActiveCell und Offset die richtige Zelle anzusprechen. Muß ja ans Ende der Spalte, die letzten beiden Zellen auswählen, bis ans Ende nach rechts selektieren und dann löschen.
Hat mich irgendjemand verstanden? ;-)
Besten Dank.
Phil

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle selektiren und löschen
16.06.2007 19:20:00
Chaos
Servus,
z.B. so:

Sub letzte()
Dim S As String, t As String
S = Cells(1, ActiveCell.Column).Address(0, 0)
With WorksheetFunction
t = .Substitute(S, 1, "")
Range(t & "65536").End(xlUp).Offset(0, 0).Select ' oder in deinem fall ClearContents
End With
End Sub


Gruß
Chaos

Anzeige
AW: Zelle selektiren und löschen
16.06.2007 19:31:00
nighty
hi phil :-)
vielleicht so
gruss nighty

Sub test()
ActiveSheet.Range(Cells(ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row - 1,  _
ActiveCell.Column), _
Cells(ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, ActiveSheet.Cells( _
ActiveSheet.Cells( _
Rows.Count, ActiveCell.Column).End(xlUp).Row, Columns.Count).End(xlToLeft).Column)) = ""
End Sub


Anzeige
AW: Zelle selektiren und löschen
16.06.2007 19:33:00
nighty
hi all :-)
ups hat sich ueberschnitten .-)
mein code war eh auf die schnelle :-))
gruss nighty

AW: Zelle selektiren und löschen
17.06.2007 13:37:28
Chaos
servus nighty,
ich glaub, dein Code trifft es eh besser. Allerdings will er nach rechts selektieren und löschen, also glaub ich muß es so heißen:

Sub test()
ActiveSheet.Range(Cells(ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row - 1,  _
ActiveCell.Column), _
Cells(ActiveSheet.Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row, ActiveSheet.Cells( _
ActiveSheet.Cells( _
Rows.Count, ActiveCell.Column).End(xlUp).Row, Columns.Count).End(xlToRight).Column)) = ""
End Sub


Also xlToRight.
Gruß
Chaos

Anzeige
AW: Zelle selektiren und löschen
17.06.2007 14:29:00
nighty
hi chaos :-))
dein code war schon der richtige,mein code zwar auch aber fuer anfaenger schlecht nachvollziehbar,habe mit offset noch nie gearbeitet daher kam diese loesung ,dir noch viel spass am tuefteln :-))
gruss nighty

AW: Zelle selektiren und löschen
17.06.2007 16:12:00
Chaos
hi nighty,
naja, so schwer ist das auch wieder nicht zu verstehen.
Merci bien. Dir auch noch viel Spass :-)).
Gruss Chaos

Anzeige
AW: Zelle selektiren und löschen
17.06.2007 16:06:00
Chaos
Servus Phil,
nach letzter Überarbeitung für dich so:

Sub letzte()
Dim S As String, t As String, u As String, v As String
S = Cells(1, ActiveCell.Column).Address(0, 0)
With WorksheetFunction
t = .Substitute(S, 1, "") ' nur Spaltenbuchstabe
Range(t & "65536").End(xlUp).Offset(0, 0).Select ' letzte auswählen
u = ActiveCell.Address 'Adresse auslesen
ActiveCell.End(xlToRight).Select 'letzte in Zeile
v = ActiveCell.Address 'Adresse auslesen
Range(u & ":" & v).ClearContents 'Bereich Inhalte löschen
Range(t & "65536").End(xlUp).Offset(0, 0).Select 'Wiederholung, da letzten zwei Zeilen
u = ActiveCell.Address
ActiveCell.End(xlToRight).Select
v = ActiveCell.Address
Range(u & ":" & v).ClearContents
End With
End Sub


Selcet kannst du auch weglassen und direkt mit Address ersetzen, v = ActiveCell.End(xlToRight).Address, u.s.w.
Gruß
Chaos

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