Herbers Excel-Forum - das Archiv

variablen Bereich festlegen

Bild

Betrifft: variablen Bereich festlegen
von: Peter

Geschrieben am: 10.04.2005 10:15:34
Hallo Forum,
In Spalte B der Tabelle1 stehen Datumswerte und Textwerte.
Jetzt möchte ich die Zeilen vom 1. des Monates
bis zum letzten des Monates über eine Bereichsfestlegung in die Tabelle 2 kopieren.
Ich scheitere jedoch schon an der Bereichsfestlegung.
Wer kann helfen?
Danke Peter
Sub Monatsbereich()
Worksheets("Tabelle1").Activate
lngMonth = 1
IntJahr = Year(Date)
MonatsAnf = CDate(DateSerial(IntJahr, lngMonth, 1))
MonatsEnd = CDate(DateSerial(IntJahr, lngMonth + 1, 0))
lastRow = IIf(Range("B65536") <> "", 65536, Range("B65536").End(xlUp).Row)
Set rngA = Range("B3:B" & lastRow)
For Each rng In rngA
If rng.Value = MonatsAnf Then
Set BerAnfZeile = Rows(rng.Row)
End If
If rng.Value = MonatsEnd Then
Set BerEndZeile = Rows(rng.Row)
End If
Next rng
Set Bereich = Range(Cells(BerAnfZeile, 1), Cells(BerEndZeile, 15))
Bereich.Select
End Sub

Bild

Betrifft: AW: variablen Bereich festlegen
von: Ramses

Geschrieben am: 10.04.2005 10:33:53
Hallo
in der ersten Zeile deines Moduls immer "Option Explicit" verwenden, dann vergisst du keine Variablendeklaration und fehlerhafte Deklarationen werden ebenfalls bemerkt
Sub Monatsbereich()
Dim lngMonth As Byte, intJahr As Integer, lastRow As Integer
Dim BerAnfZeile As Integer, BerEndZeile As Integer
Dim MonatsAnf As Date, MonatsEnd As Date
Dim Bereich As Range, rng As Range, rngA As Range
Worksheets("Tabelle1").Activate
lngMonth = 1
intJahr = Year(Date)
MonatsAnf = CDate(DateSerial(intJahr, lngMonth, 1))
MonatsEnd = CDate(DateSerial(intJahr, lngMonth + 1, 0))
lastRow = IIf(Range("B65536") <> "", 65536, Range("B65536").End(xlUp).Row)
Set rngA = Range("B3:B" & lastRow)
For Each rng In rngA
If rng.Value = MonatsAnf Then
BerAnfZeile = rng.Row
End If
If rng.Value = MonatsEnd Then
BerEndZeile = rng.Row
Exit For
End If
Next rng
Set Bereich = Range(Cells(BerAnfZeile, 1), Cells(BerEndZeile, 15))
Bereich.Select
End Sub


Ungetestet, sollte aber tun
Gruss Rainer
 Bild
Excel-Beispiele zum Thema "variablen Bereich festlegen"
Variablenübergabe in andere Arbeitsmappen Einlesen von Zellinhalten in Variablen
Variablen in einer temporären Textdatei zwischenspeichern Zellinhalte in Verbindung mit Variablen in Textdatei schreiben
Zinstabelle mit variablen Rückzahlungen Auflistung der Kalenderwochen eines variablen Jahres
Kapitalverzinsung mit fixen Raten und variablen Zinsen Darlehensverzinszung bei variablen Rückzahlungsraten
Variablen auf mehrere Arten in Funktionen integrieren Benennung und Wert von Umgebungsvariablen ermitteln