Office: (Office 2010) Letzte Zeile in einem bestimmten Bereich finden

Bene329 · 26. September 2017

Hallo,

ich habe ein Formular mit dem ich Einträge in einem bestimmten bereich einfüge, dieser Bereich ist nicht zusammenhängend. Nun wollte ich das Formular so erweitern, das ausgewählte Einträge unter dem letzten eingefügten Eintrag eingefügt werden. Momentan werden immer alle Einträge gelöscht und und der vorgegebene Bereich wieder gefüllt.

Der VBA Code zum kompletten befüllen sieht wie folgt aus:

Code:

Private Sub cmdStart_Click()
Dim Ef As Worksheet
Dim a As Long
Dim aMax As Long
Dim y As Long
Dim yBereich As Range
Dim zelle As Range
Dim yLetzteZeile As Long

Set Ef = ThisWorkbook.Worksheets("Vorlage Einweisung")

Dim ctrl As msforms.Control, cnt As Long
cnt = 0
For Each ctrl In UserForm1.Controls
If TypeOf ctrl Is msforms.checkbox Then
cnt = cnt + 1
End If
Next

With Ef
aMax = .UsedRange.Rows.Count
Set yBereich = .Range("A61:A80,A92:A111,A123:A142,A154:A173,A185:A204")

For Each zelle In yBereich
zelle.MergeArea.ClearContents
Next

yLetzteZeile = yBereich.End(xlUp).Row + 2

y = yLetzteZeile

For a = 1 To cnt
If Me.Controls("CheckBox" & a).Value = True Then
.Range("A" & y).Value = Me.Controls("Label" & a)

' If y < 80 Or y >= 92 Then
' y = y + 1
' Else: y = 90
' End If

Select Case y
Case 61 To 79
y = y + 1
Case 80 To 91
y = 92
Case 92 To 110
y = y + 1
Case 111 To 122
y = 123
Case 123 To 141
y = y + 1
Case 142 To 153
y = 154
Case 154 To 172
y = y + 1
Case 173 To 184
y = 185
Case 185 To 203
y = y + 1
' Case Else
' y = y
End Select

End If

Next a

End With

Unload Me

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Eigentlich brauche ich nur ein Statement, mit dem ich die letzte beschriebene Zeile in der Range("A61:A80,A92:A111,A123:A142,A154:A173,A185:A204") erhalte.

Mit den beiden Statements hatte ich keinen Erfolg:
last = Range("A61:A80,A92:A111,A123:A142,A154:A173,A185:A204").End(xlUp).Row

last=Range("A61:A80,A92:A111,A123:A142,A154:A173,A185:A204").SpecialCells(xlCellTypeLastCell).Address

:)

aloys78 · 28. September 2017

Hallo Bene,

probier mal:
Code:

last = cells(rows.count,"A").end(xlup).row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Bene329 · 28. September 2017

Hi Aloys,

Ich habe nach der Zeile A204 noch beschriebene Zeilen. Diese werden mir dann leider ausgeben

Danke

Drogist · 28. September 2017

Moin Bene,

dann vielleicht so: Code:

last = Cells(204, 1).End(xlUp).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bene329 · 28. September 2017

Danke, das geht schon in die richtige Richtung, kann man da noch die anderen Zwischenbereiche rausfiltern?

Sprich Zeile 81-91 ; 112-122 ; 143-153 ; 174-184

Leider kann ich mein Dokument nicht umstellen, um dies zu umgehen...

Drogist · 28. September 2017

Was auch immer du erreichen willst ... *confused.gif*
Code:

lastBlock1 = Cells(91, 1).End(xlUp).Row
lastBlock2 = Cells(122, 1).End(xlUp).Row
'...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bene329 · 28. September 2017

Was sinnigeres als man vill denkt^^

Habe es jetzt leicht unsauber so gelöst:

Code:

last = Cells(81, 1).End(xlUp).Row
last1 = Cells(112, 1).End(xlUp).Row
last2 = Cells(143, 1).End(xlUp).Row
last3 = Cells(174, 1).End(xlUp).Row
last4 = Cells(205, 1).End(xlUp).Row

If last >= 61 Then y = last + 1
If last1 >= 92 Then y = last1 + 1
If last2 >= 123 Then y = last2 + 1
If last3 >= 154 Then y = last3 + 1
If last4 >= 185 Then y = last4 + 1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Letzte Zeile in einem bestimmten Bereich finden

Letzte Zeile in einem bestimmten Bereich finden

Letzte Zeile in einem bestimmten Bereich finden

Letzte Zeile in einem bestimmten Bereich finden

Letzte Zeile in einem bestimmten Bereich finden - Similar Threads - Letzte Zeile bestimmten

Letzten Wert(Text!) einer Zeile ausgeben

Kopiert nicht bis zur letzten Zeile

Letzter Wert in Zeile - abhängig von Inhalt einer Spalte

indirekte Funktion, letzte Zeile mit einem Zeitwert anzeigen

Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

Letzte Zeile mit bestimmten Wert finden

Erste und letzte Zeile mit bestimmtem Inhalt finden