Erste/Letzte befüllte Zelle und Anzahl Befüllter Zellen

[stchwint]

Hallo Zusammen,

innerhalb einer Zeile können Zellen den Wert 1 fortlaufend enthalten. Jedoch sind Start und Endpunkt variabel. Ich möchte innerhalb einer Zeile die erste und letzte befüllte Zelle bzw. befüllt mit 1.
Habe es z.B. mit .Cells(6, Columns.Count).End(xlEndLeft).Column probiert aber es funktioniert nicht so richtig.

Danke schonmal.

[Gast 123]

Hallo

deine Aussage ist sehr allgemein, besser ist es ein Beispieledatei hochzuladen und uns die gewünschte Lösung von Hand vorgeben.

mfg Gast 123

[stchwint]

Ok anbei eine Testdatei.

Habe 3 Beispielszenarien erstellt.

Die Ergebnisse unter Erste befüllte Zelle, Letzte befüllte Zelle und Anzahl befüllter Zellen möchte ich über VBA raus bekommen.
Suchkriterum mit Zellwert=1 wäre besser, da eine LeereZelle bei mir eine Formel enthalten kann und das somit den Wert verfälscht

[Werner.M]

Hallo,

da ist aber keine Datei.

Gruß Werner

[stchwint]

Oh ich hoffe jetzt

[WillWissen]

Moin,

muss es unbedingt VBA sein? Hier eine Formellösung (Anregungen aus excelformeln.de)

Arbeitsblatt mit dem Namen 'Tabelle1'
	D	E	F	G
1		Erste befüllte Zelle	Letzte befüllte Zelle	Anzahl befüllter Zellen
2	Beispiel 1	5	15	11
3		5	15	11
4	Beispiel 2	3	5	3
5		3	5	3
6	Beispiel 3	8	13	6
7		8	13	6

Zelle	Formel
E3	=F3-G3+1
F3	=VERWEIS(2;1/(A13:O13<>"");SPALTE(A1:O1))
G3	=ANZAHL(A13:O13)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[Werner.M]

Hallo,

per Makro:

Code:

Option Explicit

Public Sub aaa()
Dim loLetzte As Long, raFund As Range, raFund1 As Range
Dim i As Long, z As Long

'Startzeile Ergebnis
z = 2

'Blattname anpassen
With Worksheets("Tabelle1")
   loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
   For i = 11 To loLetzte Step 3
       Set raFund = .Rows(i).Find(what:=1, after:=.Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole, _
       searchorder:=xlByColumns, searchdirection:=xlNext)
       Set raFund1 = .Rows(i).Find(what:=1, LookIn:=xlValues, lookat:=xlWhole, _
       searchorder:=xlByColumns, searchdirection:=xlPrevious)
       If Not raFund Is Nothing Then
           .Cells(z, 4) = .Cells(i, 1)
           .Cells(z, 5) = raFund.Column
           .Cells(z, 6) = raFund1.Column
           .Cells(z, 7) = WorksheetFunction.CountIf(.Rows(i), 1)
           z = z + 1
       End If
   Next i
End With
       
Set raFund = Nothing: Set raFund1 = Nothing
End Sub

Gruß Werner

[stchwint]

Hallo Werner,

Funktioniert Super. Danke Dir.