Variablen Bereich in neues Blatt kopieren

robert · 2009-01-26T12:43:27+00:00

Ein Hallo an Alle ich hätte gerne Hilfe zu meiner Aufgabe es geht um das kopieren von einem variablen Bereich von Blatt Daten auf Blatt Auswertung genauere Beschreibung in der Datei https://www.herber.de/bbs/user/58797.xls Bitte um Hilfe und Gruß Robert

Hallo,
habe hier mal eine Lösung,
ich füge die Daten zwar schon ab A2 ein,
aber dafür geht es schneller weil ich keine extra Schleife benötige.
Alles andere habe ich nicht hinbekommen.
Was mir natürlich aufgefallen ist, wenn ich einen Doubelwert an die Formel übergebe
z. Bsp.
Dim DatumBis As Double
DatumBis = CDbl(CDate("01.01.2009 23:59:59")) = 39814,9999884259
Dann macht er mir in die Formel 39814;9999884259 und damit kann die Formel nicht rechnen.
Daher mache ich einen String und ersetze das Komma durch einen Punk.

Sub Test()
Dim Bereich As Range
Dim DatumVon As String
Dim DatumBis As String

DatumVon = CDbl(CDate("01.01.2009 00:00"))
DatumBis = CDbl(CDate("01.01.2009 23:59:59"))
DatumVon = Replace(DatumVon, ",", ".")
DatumBis = Replace(DatumBis, ",", ".")

With Application
 .ScreenUpdating = False
    With Sheets("Daten")
     Set Bereich = .Range("M2", .Cells(.Rows.Count, 13).End(xlUp))
     Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
     Bereich.FormulaR1C1 = "=IF(AND(RC13>=" & DatumVon & ",RC13<=" & DatumBis & "),0,"""")"
    
        With Sheets("Auswertung")
        .Range("A2", .UsedRange.Cells(.UsedRange.Cells.Count)).Value = ""
         Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy .Range("A2")
        .Columns(.Columns.Count).Delete
        End With
     
     .Columns(.Columns.Count).Delete
    End With
 .ScreenUpdating = True
End With
End Sub

Gruß Tino

Hallo,
versuche es mal hiermit.

Sub Test()
Dim Bereich As Range
Dim DatumVon As String
Dim DatumBis As String




With Application
 .ScreenUpdating = False
    With Sheets("Daten")
     DatumVon = CDbl(CDate(.Range("W1")))
     DatumBis = CDbl(CDate(.Range("W2")))
     DatumVon = Replace(DatumVon, ",", ".")
     DatumBis = Replace(DatumBis, ",", ".")
     
     Set Bereich = .Range("M2", .Cells(.Rows.Count, 13).End(xlUp))
     Set Bereich = Bereich.Offset(0, .Columns.Count - Bereich.Column)
     Bereich.FormulaR1C1 = "=IF(AND(RC13>=" & DatumVon & ",RC13<=" & DatumBis & "),0,"""")"
    
        With Sheets("Auswertung")
        .Range("A1", .UsedRange.Cells(.UsedRange.Cells.Count)).Value = ""
        Sheets("Daten").Range("A1:N1").Copy .Range("A1")
        Bereich.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Copy .Range("A2")
        .Columns(.Columns.Count).Delete
        .Columns(1).Insert xlToRight, xlFormatFromLeftOrAbove
        .Range("W1:W2").Delete
        End With
         
     .Columns(.Columns.Count).Delete
    End With
 .ScreenUpdating = True
End With
End Sub

Vielleicht wenn ich nachher noch Lust habe, baue ich dies etwas um.
Gruß Tino

Variablen Bereich in neues Blatt kopieren

Forumthread: Variablen Bereich in neues Blatt kopieren

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Variablen Bereich in neues Blatt kopieren

Forumthread: Variablen Bereich in neues Blatt kopieren

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread