Zelle in bestimmten Abständen prüfen
13.11.2020 11:50:10
Lukas
Ich sitze seit 2 Tagen an einem Makro und versuche dauernd neue Methoden damit es in der Praxis klappt.
Habe beim Googeln nichts gefunden und der Makro Rekorder kann mir da leider auch nicht weiter helfen.
Ich versuche gerade Makro zu bauen dass mir in dem aktuellem Tabellenblatt jede 10. Zeile prüft, in Spalte C, ob da was drin steht. also (C2,c12,c22,c32,...).
wenn in einer spalte nichts drin stehe sollte, sollen dort die kopierten werte aus einem anderem Datenblatt eingefügt werden.
Sub Import_Bestellformular()
Dim strFile As String
Dim strPath As String
Dim strExt As String
Dim ZWB As Workbook
Set ZWB = ThisWorkbook
strPath = "C:\Users\Lukas\Desktop\Umsetzung\Arbeitsordner\" 'Pfad des Verzeichnisses
strExt = "*.xlsx" 'Dateityp
strFile = Dir(strPath & strExt)
If strPath = "" Then
Exit Sub
Else
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
'----------------------------------------------------------------------------------------------- _
Range(Cells(32, 1), Cells(Range("O32").End(xlDown).Row, 15)).Copy
'----------------------------------------------------------------------------------------------- _
Workbooks(strFile).Close
strFile = Dir() ' nächste Datei
Loop
End If
End Sub
kann mir da vielleicht jemand weiter helfen, bzw mein makro mit dieser funktion vervollständigen?
Die Idee dahinter ist dann, dass ich viele Dateien in einem Ordner habe. Per Knopfdruck kann dann die erste Datei geöffnet werden und die werte werden dann in Spalte c2 eingefügt in das aktuelle Workbook.
dann kommt automatisch die nächste Datei aus dem Ordner die geöffnet wird, und die Werte werden wieder kopiert an der gleichen stell und werden dann bei c12 eingefügt.
Und so weiter.... bis alle Dateien in dem ordner durchgearbeitet worden sind.