title image


Smiley Re: Zellinhalte tauschen
Hallo Lutz,



hier VBA-Code, der dir helfen sollte die Situation mit dem Tauschen zweier Zellen zu ermöglichen.

Das Macro "Tausche2" ist das mit dem du das Tauschen ausführst. Damit du es etwas bequemer hast zwei Zusatz Routinen, die dir in der Menüleiste ein Pulldown instalieren und wieder entfernen. Damit kannst nach dem Markieren der beiden Zellen das Tauschen einfach ausführen.



Speichere die 3 Routinen als VBA-Module.



Viel Glück









Sub Tausche2()

' ============================= \neandr ========

Dim c1, c2

    If Selection.Count = 2 Then

        c1 = Selection(1).Value

        c2 = Selection(2).Value



        Selection(1).Value = c2

        Selection(2).Value = c1

    End If

End Sub





Sub auto_open()

' ============================= \neandr ========

    MenuBars(xlWorksheet).Menus.Add Caption:="Tausche"   '****, Before:=1



    With MenuBars(xlWorksheet).Menus("Tausche")

        Set mi = .MenuItems.Add("Tausche", "tausche2")

    End With



 MsgBox "autostart"

End Sub





Sub auto_close()

' ============================= \neandr ========

    For Each MenuName In MenuBars(xlWorksheet).Menus

        If MenuName.Caption = "Tausche" Then

            MenuName.Delete

        End If

    Next



 MsgBox "autoclose"

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Neandr	            //gW
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11 - Build ID: 2007112718; 
TB version  2.0.0.9 (20071031)
jre6.0.04; MS Office 10 
Intel Pro/W LAN 2100 3B Mini PCI with WAP; 1&1 DSL mit Fritz!Box 7050/7150



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: