Office: Makro start gelingt nicht!

Helfe beim Thema Makro start gelingt nicht! in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Leute, ich hab da ein Problem beim start eines Makros. Und zwar hab ich ein Makro in der Datei "createhwl" welches die Datei "Mappe2"... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Kasimir, 22. Oktober 2007.

  1. Kasimir Erfahrener User

    Makro start gelingt nicht!


    Hallo Leute,

    ich hab da ein Problem beim start eines Makros.
    Und zwar hab ich ein Makro in der Datei "createhwl" welches die Datei "Mappe2" erstellt.

    Nachdem das Makro "Mappe2" erstellt hat wird automatisch dieses macro ausgeführt.

    Private Sub sortieren()
    '
    ' sortieren Makro
    ' Makro am 19.10.2007 von cfroestl aufgezeichnet
    '

    '
    Range("A1").Select
    Selection.AutoFilter
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    Range("A1:V657").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    Cells.Select
    ActiveWindow.Zoom = 70
    Selection.ColumnWidth = 19.29
    Range("A7").Select
    ActiveWorkbook.SaveAs Filename:= _
    "C:\Dokumente und Einstellungen\cfroestl\Desktop\Create\Mappe2.xls", _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
    Call sondieren

    End Sub

    anschließend soll das Makro sondieren ausgefürht werden, also dieses:

    Private Sub sondieren()
    Dim Zelle As Range
    Dim DFeld As Variant
    Dim Anzahl As Byte, i As Byte, j As Byte
    Workbooks(Mappe2).Activate
    For Each Zelle In Workbooks(Mappe2).Worksheets("Tabelle1").Range("A1:Z1000")
    If Zelle <> "" Then
    Zelle = Application.WorksheetFunction.Substitute(Zelle, " ,", ";")
    Zelle = Application.WorksheetFunction.Substitute(Zelle, ",", ";")
    Zelle = Application.WorksheetFunction.Substitute(Zelle, "; ", ";")
    Zelle = Application.WorksheetFunction.Substitute(Zelle, " ;", ";")
    DFeld = Split(Zelle.Text, ";")
    Anzahl = UBound(DFeld)
    For i = 0 To Anzahl
    If CStr(DFeld(i)) <Then> 1
    Zelle.Replace What:=";;", Replacement:=";"
    Loop
    If Right(Zelle, 1) = ";" Then Zelle = Left(Zelle, Len(Zelle) - 1)
    End If
    Next Zelle
    End Sub

    Das klappt aber nicht da er dann immer den debugger anschmeißt und auf dieses hier verweist!

    Private Sub CommandButton1_Click()
    Excel.Run "DieseArbeitsmappe.CreateHWL"
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub

    Was kann ich machen, damit das makro sondieren auch automatisch abläuft?
     
    Kasimir, 22. Oktober 2007
    #1
  2. schatzi Super-Moderator
    Hallo!

    Was passiert denn, wenn du statt "Call sondieren" den Code "sondieren" direkt in den oberen Code einfügst?
     
    schatzi, 22. Oktober 2007
    #2
  3. Kasimir Erfahrener User
    ...

    verweist immer noch hierdrauf:

    Private Sub CommandButton1_Click()
    Excel.Run "DieseArbeitsmappe.CreateHWL"
    End Sub

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    End Sub

    also wenn ich dieses reinschreibe:
    Workbooks(Mappe2).Activate
    For Each Zelle In Workbooks(Mappe2).Worksheets("Tabelle1").Range("A1:Z1000")

    dann gibt er den oben beschriebenden fehler aus.

    wenn nich, wendet er das halt nur in der createhwl.xls an.
    Also er hat irgendwie ein prob damit das in der Mappe2.xls anzuwenden.
    aber warum? :-( :-( :-(
     
    Kasimir, 22. Oktober 2007
    #3
  4. schnake Erfahrener User

    Makro start gelingt nicht!

    lade doch die tabele hoch
     
    schnake, 23. Oktober 2007
    #4
Thema:

Makro start gelingt nicht!

Die Seite wird geladen...
  1. Makro start gelingt nicht! - Similar Threads - Makro start gelingt

  2. Makro aus personal.xls starten

    in Microsoft Excel Hilfe
    Makro aus personal.xls starten: Auf einem Arbeitsblatt habe ich mehrere Buttons. Die zugehörigen Makros sind in personal.xls gespeichert. Aus dem Code-Editor heraus kann ich die Makros ohne Problem starten. auf dem Arbeitsblatt...
  3. Makro durch Doppelklick auf Zelle starten

    in Microsoft Excel Hilfe
    Makro durch Doppelklick auf Zelle starten: Hej Zusammen! Ich habe eine Tabelle mit vielen Einträgen. Bei einem Doppelklick auf irgendeine Zelle in dieser Tabelle soll ein Makro gestartet werden. Das Makro bezieht sich dann wieder auf die...
  4. VBA - Makro nur unter bestimmten Bedingungen starten

    in Microsoft Excel Hilfe
    VBA - Makro nur unter bestimmten Bedingungen starten: Hallo, ich würde mich freuen wenn ihr mir kurz helft. Ich habe ein bestehendes Makro, welches sehr vieles macht, u.a. ein weiteres Makro aufrufen, welches sämtliche Filter in meiner Tabelle,...
  5. Word-Makro von Excel aus starten

    in Microsoft Excel Hilfe
    Word-Makro von Excel aus starten: Guten Tag allerseits. Ich habe ein Makro, welches mir von Excel 2010 aus - eine neue Word-Datei öffnet und - Daten in Form einer Tabelle nach Word 2010 kopiert Ich möchte diese Tabelle in Word...
  6. aus Access Word-Makro mit Parameterübergabe starten

    in Microsoft Access Hilfe
    aus Access Word-Makro mit Parameterübergabe starten: Hallo zusammen, ich habe eine Word-Datei, in der aus Access-VBA ein Makro mit einem Parameter gestartet werden soll Meine Word-Datei und das Makro starte ich so, klappt auch:...
  7. Makro per Button starten

    in Microsoft Excel Hilfe
    Makro per Button starten: Guten Morgen liebe Community, ich brauche mal wieder Hilfe in Excel. Ich habe ein Makro aufgezeichnet, weil ich es anders leider gar nicht hinbekommen würde. Was will ich durch den Buttonklick...
  8. ost Vorlagen bei Outlook-Start automatisch laden

    in Microsoft Outlook Hilfe
    ost Vorlagen bei Outlook-Start automatisch laden: Hallo zusammen! Ich möchte zentral abgelegte ost-Vorlagen bei jedem outlook-start automatisch in den Ordner ENTWÜRFE laden/importieren. Hintergrund: wir sind ein großes Team und ich möchte...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden