Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1520to1524
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
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA -MSG- Finde letzte Zeile und Lösche nach oben

VBA -MSG- Finde letzte Zeile und Lösche nach oben
23.10.2016 10:07:43
Leon
Hallo,
habe hier im Forum eine interessante Funktion gefunden- sehr brauchbar. Hatte Christan mal entworfen.
Damit wir die letzte beschriebene Zelle gefunden. Das Funktioniert sehr gut.
Ist es möglich, diese FunKtion etwas abzuändern?
* Beim finden der letzten Zeile auch dort hin springen.
* In der MSG Box eine weitere Funktion einzubinden- mit: Befehlsschaltfläche Löschen, die dann folgendes löschen wird-
- Löschen der Letzten Zeile plus 10 weitere nach oben ( z.B. wenn bei 50 die letzte war- dann bis 40 löschen, oder bei 477- dann bis 467 löschen.
  • 
Function LastCol(wks As Worksheet) As Long
Dim lngFirst As Long, lngLast As Long, lngTmp As Long
With Application
If .CountA(wks.Cells) = 0 Then Exit Function
If .CountA(wks.Columns(wks.Columns.Count)) Then
LastCol = wks.Columns.Count: Exit Function
End If
lngLast = wks.Columns.Count
Do While lngLast > lngFirst + 1
lngTmp = (lngFirst + lngLast) \ 2
If .CountA(wks.Columns(lngTmp).Resize(, lngLast - lngTmp)) Then _
lngFirst = lngTmp Else lngLast = lngTmp
Loop
If .CountA(wks.Columns(lngLast)) Then LastCol = lngLast Else LastCol = lngFirst
End With
End Function


    • Oder wird das gar nichts?
    Eine fertige Funktion wäre mir lieb.
    Danke für Eure Hilfe.
    MfG Leon

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA -MSG- Finde letzte Zeile und Lösche nach oben
    23.10.2016 21:39:41
    fcs
    Hallo Leon,
    die von dir gefundene Funktion ermittelt die Letzte Spalte.
    Du suchst aber nach Zeilen.
    Nachfolgend eine Variante, die im aktiven Tabellenblatt, nach der letzte Zeile mit Inhalt &lt&gt"" sucht und zum Löschen der letzten 10 Zeilen auffordert.
    LG
    Franz
    Sub prcLoeschenLetzte_10_Zeilen()
Call prcLoeschenLetze(Anzahl_Loeschen:=10, bolFormeln:=True, bolUsedRange:=False)
End Sub
Sub prcLoeschenLetze(Optional ByVal Anzahl_Loeschen As Long = 1, _
Optional ByVal bolFormeln As Boolean = True, _
Optional ByVal bolUsedRange As Boolean = False)
Dim wks As Worksheet
Dim Zelle As Range
Dim Zeile As Long
Set wks = ActiveSheet
With wks
Zeile = fncLastRow(wks, bolFormeln, bolUsedRange)
If Zeile = 0 Then
MsgBox "Es gibt keine Daten im Tabellenblatt"
Else
Set Zelle = .Cells(Zeile, 1)
Zelle.Select
If Zeile  0 Then
.Range(.Rows(Zeile - Anzahl_Loeschen + 1), .Rows(Zeile)).Delete
.Cells(Zeile - Anzahl_Loeschen, 1).Select
End If
End If
End If
End If
End With
End Sub
Public Function fncLastRow(wks As Worksheet, _
Optional ByVal bolFormeln As Boolean = True, _
Optional ByVal bolUsedRange As Boolean = False) As Long
'bolFormeln: True - Letzte Zeile mit Inhalt (inkl. Formeln) wird ermittelt _
False - Letzte Zeile mit Inhalt  "" wird ermittelt.
'bolUsedRange: True - Letzte benutzte Zeile (inkl. Formate) wird ermittelt _
False - Letzte Zeile  gemäß Einstellung für bolFormeln wird ermittelt.
Dim Zelle As Range
With wks
If bolUsedRange = True Then
'letzte benutzte Zeile wird ermittelt - schließt formatierte Zellen mit ein
With .UsedRange
fncLastRow = .Row + .Rows.Count - 1
End With
Else
Set Zelle = .Cells.Find(What:="*", After:=.Cells(1, 1), _
LookIn:=IIf(bolFormeln = True, xlFormulas, xlValues), _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If Zelle Is Nothing Then
fncLastRow = 0
Else
fncLastRow = Zelle.Row
End If
End If
End With
End Function

    Anzeige
    AW: VBA -MSG- Finde letzte Zeile und Lösche nach
    23.10.2016 22:26:27
    Andi
    Guten Abend Franz,
    herzlichen Dank- für die Mühe die Du dir gemacht hast- funktioniert tadellos.
    Eine Frage hätte ich noch dazu.
    Können auch in diesem Bereich vorhandene Bilddatein- wie z.B. zwei eingebettete BMP, JPG Dateien entfernt werden? Es kommt doch ab und zu vor, das dort sich welche befinden.
    Wenn nicht werden sie von Hand entfernt.
    Also nochmals recht vielen Dank- Respekt.
    LG Leon
    AW: VBA -MSG- Finde letzte Zeile und Lösche nach
    23.10.2016 23:43:47
    fcs
    Hallo Leon,
    mit den folgenden Anpassung werden optional auch die Grafiken/Formen etc. gelöscht
    LG
    Franz 
    Sub prcLoeschenLetzte_10_Zeilen()
Call prcLoeschenLetze(Anzahl_Loeschen:=10, bolFormeln:=True, bolUsedRange:=False, _
bolShapes:=True)
End Sub
Sub prcLoeschenLetze(Optional ByVal Anzahl_Loeschen As Long = 1, _
Optional ByVal bolFormeln As Boolean = True, _
Optional ByVal bolUsedRange As Boolean = False, _
Optional ByVal bolShapes = True)
Dim wks As Worksheet
Dim Zelle As Range
Dim Zeile As Long
Dim objShape As Shape
Set wks = ActiveSheet
With wks
Zeile = fncLastRow(wks, bolFormeln, bolUsedRange)
If Zeile = 0 Then
MsgBox "Es gibt keine Daten im Tabellenblatt"
Else
Set Zelle = .Cells(Zeile, 1)
Zelle.Select
If Zeile  0 Then
If bolShapes = True Then
For Each objShape In .Shapes
If Not Application.Intersect(objShape.TopLeftCell, _
.Range(.Rows(Zeile - Anzahl_Loeschen + 1), _
.Rows(Zeile))) Is Nothing Then
objShape.Delete
End If
Next
End If
.Range(.Rows(Zeile - Anzahl_Loeschen + 1), .Rows(Zeile)).Delete
.Cells(Zeile - Anzahl_Loeschen, 1).Select
End If
End If
End If
End If
End With
End Sub
Public Function fncLastRow(wks As Worksheet, _
Optional ByVal bolFormeln As Boolean = True, _
Optional ByVal bolUsedRange As Boolean = False) As Long
'bolFormeln: True - Letzte Zeile mit Inhalt (inkl. Formeln) wird ermittelt _
False - Letzte Zeile mit Inhalt  "" wird ermittelt.
'bolUsedRange: True - Letzte benutzte Zeile (inkl. Formate) wird ermittelt _
False - Letzte Zeile  gemäß Einstellung für bolFormeln wird ermittelt.
Dim Zelle As Range
With wks
If bolUsedRange = True Then
'letzte benutzte Zeile wird ermittelt - schließt formatierte Zellen mit ein
With .UsedRange
fncLastRow = .Row + .Rows.Count - 1
End With
Else
Set Zelle = .Cells.Find(What:="*", After:=.Cells(1, 1), _
LookIn:=IIf(bolFormeln = True, xlFormulas, xlValues), _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If Zelle Is Nothing Then
fncLastRow = 0
Else
fncLastRow = Zelle.Row
End If
End If
End With
End Function

    Anzeige
    AW: VBA -MSG- Finde letzte Zeile und Lösche nach
    24.10.2016 21:24:41
    Leon
    Danke fcs Franz,
    das funktioniert- dachte nicht das dafür so ein langer Code nötig wird.
    Danke für die Mühe.
    LG Leon

    333 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
    Letzte Zeile Finden und Daten einfügen
    Eddie

    Hallo @ all ...
    Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
    Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
    Sub su...
    20.10.2008 15:17:00
    Thread-ID: 1017692
    4 Beiträge
    Letzte Zeile Finden und Daten einfügen
    Eddie

    Hallo @ all ...
    Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
    Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
    Sub su...
    20.10.2008 15:28:24
    Thread-ID: 1017698
    2 Beiträge
    Anzeige
    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
    letzte benutzte Zeile eines Namens-Bereichs
    Klaus

    Hallo Forum,
    wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
    Beispiel:
    Bereichsname = Testfeld
    Name Testfeld besteht aus Text, Formeln und Datümern
    Formeln dürfen NICHT gefunden werden
    Mit
    LAST = Cells.Find(What:="*", After:=[A1],...
    23.11.2008 19:43:00
    Thread-ID: 1027146
    11 Beiträge
    Letzte Zeile mit bestimmten Wert finden
    Harald

    Hallo und schönen Abend
    Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
    Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
    Sub Find_Last(FindString As String) Dim Rng A...
    07.12.2008 19:37:02
    Thread-ID: 1030899
    3 Beiträge
    Letzte Leere Zelle in Spalte C
    Wacker

    Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
    Bin bereits hier bei Zelle C4500.
    Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
    Und dann benötige ich noch für diverse Berechnungen, die Forme...
    07.12.2008 22:23:00
    Thread-ID: 1030940
    9 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
    Anzeige

    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
    2
    3
    1
    4
    2
    10
    2
    8
    4
    7
    7
    4
    2
    1
    6
    5
    6
    4
    5
    8
    3
    3
    4
    6