Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

springe zur letzten zeile -lösche Bereich

springe zur letzten zeile -lösche Bereich
23.01.2017 06:13:29
Andi
Guten Morgen,
wenn ich mit VBA die letzte ausgefüllte Zeile im Blatt "Bearbeiten" im Bereich A-L finden - und dann aber nur den Bereich B-L löschen möchte, wie könnte dafür ein Code aussehen?
Ich möchte auch nicht zur letzten Zeile springen.
Danke erst mal.
Andi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: springe zur letzten zeile -lösche Bereich
23.01.2017 08:12:53
hary
Moin Andi 
Dim lngLetzeZeile As Long
With Worksheets("Bearbeiten")
lngLetzeZeile = .[A:L].Find(What:="*", After:=.[A1], LookIn:=xlFormulas, SearchDirection:= _
xlPrevious).Row
.Cells(lngLetzeZeile, 2).Resize(1, 11).ClearContents
End With

gruss hary
AW: Finde letzten zeile -lösche Zellbereich
23.01.2017 19:16:55
Andi
Erst mal ein großes Dankeschön an Hary,
geht toll. Eine Frage dazu noch.
Was müsste ich am Code ändern, wenn nicht nur die letzte Zeile gelöscht werden soll, sondern alles im Bereich B-L so das nur noch A mit Werte gefüllt sind. Aktiv soll danach wieder Zeile 1 in "Bearbeiten" sein.
Das würde eine weitere Funktion sein.
Danke schon mal.
LG Andi
Anzeige
AW: Finde letzten zeile -lösche Zellbereich
24.01.2017 06:56:15
hary
Moin Andi 
With Worksheets("Bearbeiten")
.Range("B:L").ClearContents
.Range("A1").Select
End With

gruss hary
AW: Finde letzten zeile -lösche Zellbereich
24.01.2017 23:20:10
Andi
Danke Hary,
Vielleicht doch noch eine nächste Befehlsschaltfläche- das werden richtig gute Funktionen- die in eine Combobox kommen.
Der nachfolgende Code funktioniert- er löscht bis zur eingegeben Zahl den Inhalt von "Spalte A" ohne Formatierung.
Wenn nun zusätzlich der Bereich "B-L" bis zu dieser Zahl mit gelöscht werden soll-
müsste eigentlich >>> Range("B:L").ClearContents 

Private Sub CommandButton0051_Click()      'Lege Zeilenanzahl fest- ohne Löschen
Dim nAnzahl&
If TextBox0023.Tag = "1" Then Exit Sub
If IsNumeric(TextBox0023.Text) Then
With Worksheets("Bearbeiten")
nAnzahl = CLng(TextBox0023.Text)
If nAnzahl  0 Then
.UsedRange.Columns(1).ClearContents
With .Range("A1").Resize(nAnzahl)
.FormulaR1C1 = "=ROW(RC1)"
.Value = .Value
End With
End If
End If
End With
End If

Habe es schon probiert- aber bei meinen ´bescheidenen VBA Kenntnissen.
Gruß Andi
Anzeige
AW: Finde letzten zeile -lösche Zellbereich
25.01.2017 07:06:45
hary
Moin 
Range("B1:L" & nAnzahl).ClearContents

gruss hary
AW: -lösche Zellbereich
25.01.2017 18:28:38
Andi
Guten Abend Hary.
Langsam taste ich mich vor. Habe den Code mal mit Datum versehen- was geändert wurde-
Interessant- Nun wird B1-L gelöscht- jedoch entgegengesetzt... Lach
Bei ausgefüllten Blatt ( Salten A-L sind z.B. bis 55 gefüllt, ich trage in der TextBox 30 ein - dann wird zur Zeit die Spalte A bis zur 30 reduziert- und zur Zeit ab der 30- bis zur 1 der Bereich B-L geleert.
Besser ist es- wenn ebenfalls der Bereich- B-L bis zur z.B. 30 gelöscht werden würde. Von unten Rückwärts.
Na hoffentlich nerve ich nicht so sehr?
LG Andi

Private Sub CommandButton0051_Click()      'Lege Zeilenanzahl fest- ohne Löschen
Dim nAnzahl&
If TextBox0023.Tag = "1" Then Exit Sub
If IsNumeric(TextBox0023.Text) Then
With Worksheets("Bearbeiten")
nAnzahl = CLng(TextBox0023.Text)
If nAnzahl  0 Then
.UsedRange.Columns(1).ClearContents
With .Range("A1").Resize(nAnzahl)
.FormulaR1C1 = "=ROW(RC1)"
.Value = .Value
End With
With .Range("B1:L" & nAnzahl).ClearContents '25.01.17
End With '25.01.17
End If
End If
End With
End If
End Sub

Anzeige
AW: -lösche Zellbereich
26.01.2017 08:04:19
hary
Moin
Kein Problem.
Was meinst du mit: " Nun wird B1-L gelöscht- jedoch entgegengesetzt... "?
Du hast A bis L 30 Zeilen belegt. Und moechtest ab nAnzahl bis letzte Zeile loeschen?
D.h. Von Bsp.-weise Textbox(Zahl) bis letzte belegte alles loeschen, also unterhalb von Zeile(Textbox). 
Dim letzte As Long, nAnzahl As Long
With Worksheets("Bearbeiten")
If IsNumeric(TextBox0023) Then
If CLng(TextBox0023) > 0 Then
nAnzahl = CLng(TextBox0023)
letzte = .Cells(Rows.Count, 1).End(xlUp).Row '--letzte belegte Zeile SpalteA
.Range("A" & nAnzahl + 1 & ":L" & letzte).ClearContents
With .Range("A1").Resize(nAnzahl)
.FormulaR1C1 = "=ROW(RC1)"
.Value = .Value
End With
End If
End If
End With

Ansonsten mal eine Bsp.-Mappe hochladen. Wobei du farbig hervorhebst was geloescht werden soll.
gruss hary
Anzeige
AW: -lösche Zellbereich
26.01.2017 20:00:31
Andi
Danke Hary,
den Code eingefügt- und er löscht nun alles richtig-
Super-Arbeit.
Grüße Andi

311 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Sortieren bis zum letzten Eintrag
Werner

Hallo allerseits,
habe ein Problem beim Sortieren einer Tabelle. Diese besteht aus Zellen von A2:X200.
A:A =Lfd.-Nr. B:B Vorname, Name C:C Familienname ....
Zellen der Spalte C beinhalten Formel zum Trennen aus Einträgen der Spalte B.
Nach Markierung Bereich A2:X200 und ansch...
09.09.2008 20:45:00
Thread-ID: 1008577
6 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Anzeige
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
In erste freie Spalte springen
Thomas

Hallo Exelgemeinde,
Ich möchte per Schaltbutton in die erste freie Spalte im Bereich CU 8 bis GF 8 springen.
Ist das möglich, und wie müßte das Makro dafür sein ?
Wäre schön wenn mir jemand weiterhelfen könnte.
Gruß Thomas
19.01.2009 16:48:17
Thread-ID: 1041558
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
8
5
2
3
2
2
2
4
2
7
4
3
4
3
1
4
2
3
7
2
2
6
2
19