Hallo ich hab ein kleines Problem mit einem Makro.
So sollte es funktionieren:
Egal in welcher Exeldatei ich bin, soll der Makro funktionieren. Zusätzlich soll es mit dem Tabellenblatt beginnen das ich gerade vor mir offen habe.
Zellen A4 bis A100 sollen auf Inhalt geprüft werden. Wenn ein Inhalt da ist soll eine neue Exeldatei geöffnet weren und den Inhalt von z.b. A4 in das neue Tabellenblatt in die Zelle C6 (nur als bsp zur Erklärung) übertragen werden.
For I = 4 To 100
Windows(„GiW-Fremdvergabe.xlsm“).Activate
If Sheets(1).Cells(I, 1).Value = „“ Then
GoTo weitere
End If
Workbooks.Open Filename:= _
„Z:/Checkliste.xlsx“
Sheets(„Q-Checkliste“).Select
Sheets(„Q-Checkliste“).Copy
Windows(„Q-Checkliste.xlsx“).Activate
ActiveWindow.Close
Windows(„GiW-Fremdvergabe.xlsm“).Activate
Sheets(1).Select
wert4 = Sheets(1).Cells(I, 3).Value
wert1 = Sheets(1).Cells(I, 6).Value
wert2 = Sheets(1).Cells(I, 1).Value
wert3 = Sheets(1).Cells(I, 4).Value
Windows(2).Activate
Sheets(1).Select
Range(„C2“).Value = wert4
Range(„F2“).Value = wert1
Range(„I2“).Value = wert2
Range(„F3“).Value = wert3
weitere:
Next I
ich hab die Datei das erste mal mit „giw-fremdvergabe.xlsm“ programmiert, möchte jetzt aber das es mit jeder Datei funktioniert. Hab schon einige Sachen ausprobiert bekomms aber nicht hin. Hoffe auf Hilfe! Das mit PERSONAL.XLSB ist mir klar