Thema Datum  Von Nutzer Rating
Antwort
Rot Werte je Datum aus mehreren geschl. Exceldateien ziehen
05.01.2023 20:37:49 Gast10646
NotSolved
06.01.2023 12:55:52 Gast96509
NotSolved

Ansicht des Beitrags:
Von:
Gast10646
Datum:
05.01.2023 20:37:49
Views:
45
Rating: Antwort:
  Ja
Thema:
Werte je Datum aus mehreren geschl. Exceldateien ziehen

Hallo Zusammen,

ich möchte in einer Datei mit den Spalten:

ID;Dateiname;Datum;Krit 

Datum&Krit;Name der zu lesenen Exceldatei;Datum (jeder Tag im Jahr);Das Kriterium (Zahl)

einen Wert ziehen.

Es sind die Dimensionen Datum und Kriterium vorhanden. In den geschlossenden Dateien sind je Tagesdatum ein Wert vorhanden, welche in die neue Datei kopiert werden soll. Dateiname ist anhand des Kriteriums dynamisch.

Ich habe bereits die GetValue Funktion eingebaut. Das Datum wird noch nicht als Kriterium herrangezogen. Zusätzlich schreibt mir das Skipt die Werte nicht in die jeweilige Zelle. Habt ihr da eine Idee?

Public Function GetValue(pfad, datei, blatt, zelle)

'** Daten aus geschlossener Arbeitsmappe auslesen

'*** Dimensionierung der Variablen

Dim arg As String

 

'Sicherstellen, dass das datei vorhanden ist

If Right(pfad, 1) <> "\" Then pfad = pfad & "\"

If Dir(pfad & datei) = "" Then

GetValue = "datei Not Found"

Exit Function

End If

 

'** Das Argument erstellen

arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , xlR1C1)

 

'** Auslesen über Excel4Macro

GetValue = ExecuteExcel4Macro(arg)

 

End Function

 

Public Function Zelle_auslesen()

 

Dim pfad As String

Dim datei As String

Dim blatt As String

Dim zelle As String

 

Dim a As Integer

 

Dim Angaben As String

Dim Datenblatt2 As String

 

'Dimensionen zuordnen

Angaben = "Admin"

Datenblatt2 = "Tageswerte_je_Kst"

 

pfad = Sheets(Angaben).Cells(2, 2).Value 'Admin B2

datei = Sheets(Datenblatt2).Cells(a, 2).Value 'Tageswerte_je_Kst B2

zelle = Sheets(Angaben).Cells(4, 2).Value 'Einleseblatt B4

blatt = Sheets(Angaben).Cells(5, 2).Value 'Tabellenblatt Einlesen B5   

    For a = 2 To 20000

    Set rngZelle = Cells(a, 9)

ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)

Next a

End Function


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Werte je Datum aus mehreren geschl. Exceldateien ziehen
05.01.2023 20:37:49 Gast10646
NotSolved
06.01.2023 12:55:52 Gast96509
NotSolved