Texte in eine andere Datei schreiben

  • Excel

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Agent.

    Texte in eine andere Datei schreiben

    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:

    Visual Basic-Quellcode

    1. Sub Ruecklauf()
    2. Dim mappe As String
    3. Dim i As Integer
    5. mappe = ""
    6. i = 1
    7. Do
    8. If ActiveWorkbook.Sheets(i).Name = "Übersicht" Then
    9. mappe = ActiveWorkbook.Name
    10. End If
    11. i = i + 1
    12. Loop Until i > ActiveWorkbook.Sheets.Count Or mappe <> ""
    14. If mappe = "" Then
    15. MsgBox "Sheet 'Übersicht' not found!"
    16. End
    17. End If
    19. With Application.FileDialog(msoFileDialogOpen)
    20. .AllowMultiSelect = True
    21. .Title = "Please select file(s) to load!"
    22. .Filters.Add "xls-Files", "*.xls", 1
    23. .FilterIndex = 1
    24. .Show
    26. 'Dateien laden
    27. For i = 1 To .SelectedItems.Count
    28. Workbooks.Open .SelectedItems.Item(i)
    29. With ActiveWorkbook
    30. Sheets("TimeReport").Select
    31. Range("a3").Select
    32. Selection.Copy
    33. Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
    34. Range("as6").Select
    35. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    36. :=False, Transpose:=False
    37. Windows("TimeReport.xls").Activate
    38. Range("b5").Select
    39. Selection.Copy
    40. Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
    41. Range("at6").Select
    42. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    43. :=False, Transpose:=False
    44. Windows("TimeReport.xls").Activate
    45. Range("s5").Select
    46. Selection.Copy
    47. Windows("2007-02-06_AnalysisTimeReport_1.0.xls").Activate
    48. Range("au6").Select
    49. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    50. :=False, Transpose:=False
    51. Range("A1").Select
    52. Windows("TimeReport.xls").Activate
    53. End With
    54. Workbooks(ActiveWorkbook.Name).Close
    55. Next
    56. End With
    57. 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“ ()

    1) dann darfst du die Sheets auch nicht mit der Select-Methode markieren, nehm die Select-Aufrufe raus und greif direkt auf die Zellen zu: Sheets(i).Range("a1")... , das gleiche müsste auch mit den Workbooks funktionieren: Arbeitsmappe1.Sheets(i)..., da darfst du kein "Windows.Activate" ausführen

    2) du kann doch mit For-Schleifen die Zellen durchlaufen: if Sheet(i).Cells(x,y)<>"" then ...
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

Facebook
Telefonspende