Dateiname

Hallo liebe Excelfreunde,
ich brauche mal wieder eure Hilfe zu VBA.
Ich habe einen Makro aufgezeichnet der aus der Datei "FAVs (1).csv" die Zeilen 2 bis 100 kopieren und in meine Datenbank einfügt.
Ein System generiert die Datei, deren Inhalt ich kopieren möchte.
Seit einen Update des Systems wird der Dateiname zusätzlich durch eine vorlaufende Zahle in Klammer erzeugt.
Bsp.: FAVs (1).csv dann FAVs (2).csv und soweiter.
Gibt es eine Möglichkeit die Zahl in der Klammer zu umgehen, so das ich den Inhalt der Datei, egal welche Zahl in der Klammer steht zu umgehen.


Sub Daten_exportieren()
' Daten_exportieren Makro
' Tastenkombination: Strg+e
Call FIND_EMPTY_ROW
Windows("FAVs (1).csv").Activate
Rows("2:100").Select
Selection.Copy
Windows("CAT-Controlling Sifi_2020.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("FAVs (1).csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Call FIND_EMPTY_ROW
ActiveWorkbook.Save
End Sub

Vielen Dank im Voraus für eure Hilfe
Mit lieben Grüßen
Friedrich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiname

13.07.2020 10:52:25

Werner

AW: Dateiname

13.07.2020 10:54:20

Friedrich

AW: Dateiname

13.07.2020 11:21:51

Werner

AW: Dateiname

16.07.2020 09:41:22

Friedrich

Gerne u. Danke für die Rückmeldung. o.w.T.

16.07.2020 09:45:34

Werner

AW: Gerne u. Danke für die Rückmeldung. o.w.T.

16.07.2020 10:16:53

Friedrich

meinst du...

16.07.2020 11:55:33

Werner

AW: meinst du...

16.07.2020 12:52:50

Friedrich

Gerne. o.w.T.

16.07.2020 12:53:50

Werner

Sub FIND_EMPTY_ROW() Dim zeil As Integer, spalt As Integer Dim z As Integer, s As Integer zeil = ActiveSheet.UsedRange.Rows.Count + 1 'letzte ausgef?llte Zeile 'spalt = ActiveSheet.UsedRange.Columns.Count 'letzte ausgef?llte Spalte 'For z = 1 To ActiveSheet.UsedRange.Rows.Count 'mit Zeilen anfangen 'Spalte f?r Spalte der obigen Zeile durchsuchen 'For s = 1 To ActiveSheet.UsedRange.Columns.Count 'If IsEmpty(Range(Cells(z, s), Cells(z, s)).Value) = True Then 'leere Zelle gefunden Range(Cells(zeil, 1), Cells(zeil, 1)).Select 'gefundene Zelle selektieren 'Makro verlassen 'Exit Sub 'End If 'Next s 'Next z End Sub

Sub Daten_exportieren() Dim wb As Workbook, boVorhanden As Boolean Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name Like "FAVs*.csv" Then boVorhanden = True With wb.ActiveSheet .Rows("2:100").Copy End With With ThisWorkbook.ActiveSheet .Range("A" & .UsedRange.SpecialCells(xlCellTypeLastCell) _ .Offset(1).Row).PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False wb.Close False ThisWorkbook.Save End With Exit For End If Next wb If Not boVorhanden Then MsgBox "Fehler: Importdatei ist nicht geöffnet." End If End Sub

Sub Daten_exportieren() Dim wb As Workbook, boVorhanden As Boolean Application.ScreenUpdating = False For Each wb In Workbooks If wb.Name Like "FAVs*.csv" Then boVorhanden = True With wb.ActiveSheet .Rows("2:100").Copy End With With ThisWorkbook.ActiveSheet .Range("A" & .UsedRange.SpecialCells(xlCellTypeLastCell) _ .Offset(1).Row).PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False wb.Close False ThisWorkbook.Save .Range("A" & .UsedRange.SpecialCells(xlCellTypeLastCell) _ .Offset(1).Row).Select End With Exit For End If Next wb If Not boVorhanden Then MsgBox "Fehler: Importdatei ist nicht geöffnet." End If End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread