Arbeitsbereich eingrenzen
14.12.2015 11:40:29
Stefan
ich habe mit folgendem Code den Tabellenbereich schon einmal eingegrenzt:
Monat = Range("B4").Select
Windows("A_Rechnungen.xlsm").Activate
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A381:J" & LetzteZeile).Select
Nun soll dieser Bereich über die Spalte 10 über den Wert B4 weiter eingegrenzt werden. Gleichzeitig müßte gezählt werden, wieviele Spalten es in dem soeben erstellten Bereich gibt, damit ich eine Schleife programmieren kann.
Danke für die Unterstützung
Stefan