spalten füllen abhänigig von spaltenanzahl
25.04.2005 08:33:49
spaltenanzahl
ich benötige mal wieder Hilfe und zwar beim schreiben eines Makro.
Die Beispieldatei bildet vereinfacht eine Stückliste mit mehreren Ebenen ab.
Jetzt sollen den Ebenen entsprechend (Spalte B = 1.Ebene; C = 2.Ebene usw.) in Spalte A (Nummer) eine Nummer zugewiesen werden (1. Ebene = 1 .....) Wenn in der Spalte A ein Wert zugewiesen wurde, soll in die nächste Zeile gesprungen werden.
https://www.herber.de/bbs/user/21652.xls
Uwe hat mir schon mal geholfen, allerdings bezieht sich seine Lsg. , siehe unten, auf die letzte gefüllte Zelle in einer Zeile, da aber hinter den Ebenen noch andere Informationen stehen klappte es nicht ganz. Ich bräuchte die erste gefüllte Zelle in einer Zeile.
Option Explicit
Sub Stüli()
Dim LR%, LC, I%
LR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
For I = 2 To LR
LC = Cells(I, Columns.Count).End(xlToLeft).Column 'letzte Spalte der aktuellen Zeile
If LC > 1 Then ' ansonst Zeile leer
Cells(I, 1).Value = LC - 1
End If
Next I
End Sub
Danke schon mal für eure Hilfe.
Besten Gruß
Fabian
Anzeige