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

Beiträge aus den Excel-Beispielen zum Thema "variablen Bereich festlegen"