Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige