Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Paste Spezial

    Betrifft: Paste Spezial von: junny
    Geschrieben am: 01.10.2003 10:48:09

    Hallo Leute,
    hab folgendes Makro aufgezeichnet (Tabelle wird geöffnet, kopiert, geschlossen und im aktiven Blatt eingefügt)

    Problem: Ich krieg paste spezial nicht unter, denn ich will nur ausgefüllte Zellen einlesen, habe teilweise Formeln im aktiven Blatt die nicht überschrieben werden dürfen.




    Sub Power()
    
    Dim Zeile As Integer
    Dim Spalte As Integer
       Zeile = 1
       Spalte = 1
        Workbooks.Open Filename:= _
            "C:\Dokumente und Einstellungen\vw\Eigene Dateien\Frau Berndt.xls"
        Cells.Select
        Selection.Copy
        Application.DisplayAlerts = False
        ActiveWindow.Close
        Zeile = InputBox("Nr. Einfügezeile angeben:")
        'If Box = "" Then Exit Sub
        Cells(Zeile, Spalte).Select
    
    
        ActiveSheet.PasteSpecial Format:="Unicode-Text", Link:=False, _
        DisplayAsIcon:=False
    
    
        Range("A5").Select
        Application.DisplayAlerts = True
    End Sub
    



    Bin Dankbar für jeden Rat.

    Noch was, wie kann ich die letzte aktive Zelle wieder anspringen?

    Danke schonmal, gruss junny
      


    Betrifft: Tastenkombination von: willie
    Geschrieben am: 01.10.2003 11:04:40

    Letzte Zeile anspringen kannst du mit der Tastenkombination
    STRG + Ende
    Gruß
    Willie

    P.S. Du bist ja jetzt auch öfter im Forum!


      


    Betrifft: AW: Paste Spezial von: Willie
    Geschrieben am: 01.10.2003 11:16:01

    versuch es mal so! Gruß Willie

    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False


      


    Betrifft: AW: Paste Spezial von: junny
    Geschrieben am: 01.10.2003 11:32:09

    Hai Willie,
    wenn ich von Dir Antwort bekomme bin ich guter Dinge, dennoch:

    Wenn ich den Code Austausche bekomme ich einen Laufzeitfehler (1004). Diesen Code habe ich sonst allerdings auch schon aufgenommen (Inhalte einfugen/nur Werte/ ...) da hat er gepasst, jedoch hier gibt es den Fehler

    Naja vielleicht fällt Dir noch was ein. Ist es evtl. die Reihenfolge?

    Ja ich bin öfters im Forum, kann man viel dazulernen, entweder durch mitverfolgen oder auch mal selber Antworten.

    Gruss junny


      


    Betrifft: AW: Paste Spezial von: junny
    Geschrieben am: 02.10.2003 15:32:56

    Willie, habe ich was falsch gemacht? (da Du nicht mehr geantworet hast)

    Habe meinen Code umgebastelt, Mappe öffnet sich , Bereich wird markiert, copy, in der anderen Mappe eingefügt, dann wieder zur copy Mappe, diese schließen.


    Viel Grüsse junny


      


    Betrifft: AW: Paste Spezial von: Willie
    Geschrieben am: 02.10.2003 15:41:14

    Nein hast nichts falsch gemacht... Ich kann mir das eben nicht
    erklären, warum es nicht geht. Und weiter weis ich leider nicht!
    Gruß
    Willie


      


    Betrifft: Alla Gut, schönen Feiertag von: junny
    Geschrieben am: 02.10.2003 16:02:27

    o.T.