Variabel als Range

Hallo,
vielleicht kann mir hier jemand weiterhelfen. Aktuell ist das andere Forum, in welchem ich mich als aufhalte, nicht erreichbar. Dort hatte ich schon wegen dem Problem mal nachgefragt.
Ich habe eine mappe1.xlsm in der in Tabelle1 Daten stehen.
Aus diesen Daten ordne ich einen Bereich der Dim "wert" zu.


Dim wert As Range
Set wert = Worksheets("Tabelle1").Range("C2:C18")

Im nächsten Schritt möchte ich die Daten von mappe1.xlsm aus "Tabelle1" in einer Datei "Daten.xlsx" und dort in der Tabelle1 auslagern. So kann ich die Inhalte aus Daten.xlsx jederzeit erweitern / abändern
Nach dem Starten einer UserForm wird der Inhalt von Tabelle1 aus Daten.xlsx mit allen belegten Zellen (die Anzahl der Spalten und die Anzahl der Zeilen können sich ändern) in ein Array "arr" jedes Mal auf's neue manuell geladen.
Nun soll die Dim "wert" vom Typ Range mit einem Teil der Daten aus dem Array "arr" befüllt werden.
Set wert = Range(arr3,arr2:arr3,arr18)
Geht das?
Wie könnte ich sonst einen Bereich aus einem Array einer DIm vom Typ Range zuordnen?
Vielen Dank für eure Antworten
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variabel als Range

19.08.2022 16:45:25

GerdL

AW: Variabel als Range

14.09.2022 11:04:02

Grenzheuser

AW: Variabel als Range

14.09.2022 15:06:33

GerdL

AW: Variabel als Range

15.09.2022 11:24:25

Grenzheuser

AW: Variabel als Range

15.09.2022 11:43:36

GerdL

AW: Variabel als Range

16.09.2022 09:54:47

Grenzheuser

AW: Variabel als Range

15.09.2022 11:43:09

Grenzheuser

Unit() MsgBox WorksheetFunction.NetworkDays(DateSerial(2022, 1, 1), DateSerial(2022, 12, 31)) Dim Kerwe As Variant Kerwe = Array(CLng(DateSerial(2022, 9, 13)), CLng(DateSerial(2022, 9, 14))) MsgBox WorksheetFunction.NetworkDays(DateSerial(2022, 1, 1), DateSerial(2022, 12, 31), Kerwe) Dim Y(0 To 2) As Long Y(0) = DateSerial(2022, 9, 13) Y(1) = DateSerial(2022, 9, 14) Y(2) = DateSerial(2022, 8, 15) MsgBox WorksheetFunction.NetworkDays(DateSerial(2022, 1, 1), DateSerial(2022, 12, 31), Y) Dim FT As Variant FT = Tabelle1.Range("B2:B16").Value 'dort Zahlenformat, kein Datumsformat! MsgBox WorksheetFunction.NetworkDays(DateSerial(2022, 1, 1), DateSerial(2022, 12, 31), FT) End Sub

Hallo Gerd,
vielen Dank für die Ausarbeitung diverser Möglichkeiten.
Der letzte Vorschlag ist der, mit dem ich es aktuell versuche. Leider liegen in der externen Datei die Werte im Datumsformat vor. Eingelesen werden die wie folgt:


Dim arrFeiertageCB  as Variant
StartDatum = CDate(Me.TextBox1.Value)
Enddatum = CDate(Me.TextBox2.Value)
objExcel.Workbooks.Open "c:\excel\feiertage.xlsx" , ReadOnly:=True
Set objSheet = objExcel.Sheets("Tabelle1")
With objSheet
leZeile = .Cells(.Rows.Count, 3).End(xlUp).Row
arrFeiertageCB = .Range(.Cells(2, 3), .Cells(leZeile, 3)).Value                 'Werte stehen in Spalte 3
End With
MsgBox arrFeiertageCB(13, 1)             'hier steht z.B. das Datum 25.12.2022
Me.TextBox5.Value = Application.NetworkDays(StartDatum, Enddatum, arrFeiertageCB)

Hier kommt der folgende Fehler: Eigenschaft Value konnte nicht gesetzt werden. Typenkonflikt
Bei FT: mit "DateSerial" wird bei Startdatum und Enddatum eine Datum generiert und FT selber sind Zahlen
Wenn ich das so mache und alles als Datum definiert ist, geht das aber


StartDatum = CDate(Me.TextBox1.Value)
Enddatum = CDate(Me.TextBox2.Value)
Set rngHolidays = Worksheets("Tabelle1").Range("C2:C18").Value
Me.TextBox4.Value = Application.NetworkDays(StartDatum, Enddatum, rngHolidays)

Mist, irgendwie habe ich da gerade eine Denkblokade.
Wie muss ich die Daten in arrFeiertageCB einlesen, dass die bei "NetworkDays" keinen Typenkonflikt erzeugen?
Vielen Dank.
Gruß Michael

With ObjSheet leZeile = .Cells(.Rows.Count, 3).End(xlUp).Row arrFeiertageCB = .Range(.Cells(2, 3), .Cells(leZeile, 3)).Value 'Werte stehen in Spalte 3 End With For Z = LBound(arrFeiertageCB) To UBound(arrFeiertageCB) arrFeiertageCB(Z, 1) = CLng(arrFeiertageCB(Z, 1)) Next MsgBox arrFeiertageCB(13, 1) 'hier steht z.B. das Datum 25.12.2022 oder jetzt?

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variabel als Range

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread