Hallo,
ich bin noch ein Anfänger und bräuchte zu zwei Punkten etwas Hilfe:
1. ich würde gerne meine Makros im Hintergrund laufen lassen, man soll nicht sehen, wenn zwischen den Sheets wechselt
2. ich lese mehrere Sheet in eine Sammeldatei und möchte pro Sheet die gewünschten Info in eine Reihe schreibe und die nächsten Sheetinfo in die nächste Reihe usw. usf.
dazu bräuchte ich einen Befehl, der immer das die nächste freie Zeile zum pasten automatisch berechnet/zählt
hier meine bisherige Formel:
EDIT by Mad Andy:
Verschoben nach VBA
Edit by Agent: VB-Tag eingefügt
ich bin noch ein Anfänger und bräuchte zu zwei Punkten etwas Hilfe:
1. ich würde gerne meine Makros im Hintergrund laufen lassen, man soll nicht sehen, wenn zwischen den Sheets wechselt
2. ich lese mehrere Sheet in eine Sammeldatei und möchte pro Sheet die gewünschten Info in eine Reihe schreibe und die nächsten Sheetinfo in die nächste Reihe usw. usf.
dazu bräuchte ich einen Befehl, der immer das die nächste freie Zeile zum pasten automatisch berechnet/zählt
hier meine bisherige Formel:
Visual Basic-Quellcode
- Sub Ruecklauf()
- Dim mappe As String
- Dim i As Integer
- mappe = ""
- i = 1
- Do
- If ActiveWorkbook.Sheets(i).Name = "Übersicht" Then
- mappe = ActiveWorkbook.Name
- End If
- i = i + 1
- Loop Until i > ActiveWorkbook.Sheets.Count Or mappe <> ""
- If mappe = "" Then
- MsgBox "Sheet 'Übersicht' not found!"
- End
- End If
- With Application.FileDialog(msoFileDialogOpen)
- .AllowMultiSelect = True
- .Title = "Please select file(s) to load!"
- .Filters.Add "xls-Files", "*.xls", 1
- .FilterIndex = 1
- .Show
- 'Dateien laden
- For i = 1 To .SelectedItems.Count
- Workbooks.Open .SelectedItems.Item(i)
- With ActiveWorkbook
- Sheets("TimeReport").Select
- Range("a3").Select
- Selection.Copy
- Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
- Range("as6").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Windows("TimeReport.xls").Activate
- Range("b5").Select
- Selection.Copy
- Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
- Range("at6").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Windows("TimeReport.xls").Activate
- Range("s5").Select
- Selection.Copy
- Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
- Range("au6").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Range("A1").Select
- Windows("TimeReport.xls").Activate
- End With
- Workbooks(ActiveWorkbook.Name).Close
- Next
- End With
- End Sub
EDIT by Mad Andy:
Verschoben nach VBA
Edit by Agent: VB-Tag eingefügt
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Agent“ ()