Folgendes Problem:
Ich habe mir ein Makro gebastelt, hauptsaechlich mit copy & paste aus Foren.
Bisher hat es auch funktioniert, jetzt auf einmal aber nicht mehr.
Eigentlich habe ich nichts veraendert und verstehe nicht, warum es nicht mehr klappt.
Vielleicht habt ihr eine schnelle Idee.
Die Problemstellung ist, dass ich in einem Ordner fuer jeden Tag eines Monats Daten einer Anlage bekomme. Immer im Format JJJJMMTT
In diesen stehen (fast) immer in der gleichen Spalte die Daten eines gewissen Parameters. Z. B. Spalte A sind immer die Daten zum Datum und dem Zeitpunkt an dem der Wert aufgenommen wird.
Die Daten werden in 5 Minuten Schritten aufgenommen.
Diese Daten muessen nun in ein anderes Arbeitsblatt kopiert werden.
Da ich ungerne 365 x die Datei oeffnen, Bereich markieren, kopieren, ins 2. Zielarbeitsblatt wechseln, einfuegen, wieder zurueck wechseln, die Datei schliessen und von vorne anfangen will, habe ich mir folgendes Makro gebastelt:
Sub Auswertung_mehrerer_Tabellen()
' Auswertung_mehrerer_Tabellen Macro
' Keyboard Shortcut: Ctrl+k
strPath = "C:\Users\XXX\Desktop\test"
'Pfad auswahlen bzw. anpassen.
strExt = ""
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
Range("AF8").Select
'Anpassen, wenn die Zelle sich aendert.
Range(Selection, Selection.End(xlDown)).Select
'Anpassen, wenn sich der markierte Bereich aendert.
Selection.Copy
Windows("Book1").Activate
'Anpassen, wenn sich die Zieldabei aendert
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Application.DisplayAlerts = False
Workbooks(strFile).Close
strFile = Dir()
Application.DisplayAlerts = True
Loop
End If
Range("A294").Select
'Anpassen, wenn sich die zu markierende Zelle aendert.
End Sub
Eigentlich hat es auch geklappt.
Jetzt aber nicht mehr. Kann mir jemand sagen, was das Problem sein koennte?
Danke erstmal! Und entschuldigt die fehlenden Umlaute.
Beste Gruesse und vielen Dank,
Robert