title image


Smiley Re: Zellinhalte tauschen
Hallo,



also zunächst Private Nachrichten ....... wenn du dein Login machst, siehst du im ersten BegrüßungsText rot die Anzahl deiner Privaten Nachrichten:

"Es ist/sind 0 neue Nachricht/en in Ihrem Kurznachrichten-Postfach."

Etwas weiter unten dann der Bereich:

Kurznachrichten-Manager

Anderen Spotlight.de-Usern persönliche Kurznachrichten schicken.



Die Mailadr über PN auszutauschen ist deshalb sinnvoll, damit deine Mailadr nicht hier abgefangen werden kann und du dich mit SPAM herrumschlagen mußt. (Empfehlung: editiere die letzte Nachricht un entferne die Mailadr!)



Also das Mail mit der XLS- Datei und dem VBA-Code ist unterwegs. Wenn du das Module sehen willst drücke alt+f11



Ich habe es erweitert mit dem Vorschlag eine dritte Zelle zur Hilfe zu nehmen, das hat den Vorteil, das egal welche Formatierung in den Zellen ist, ... alles wird getauscht.

Ich benutzte hierfür tZelle = "A1", dies kannst duch beliegig ändern, Worti hatte IV1. Das ist die allderletzte Zelle ganz "rechts" auf den TabBlatt.



Good Luck



Hier die Macros:











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 Tausche3()

' ============================= \worti ========

Dim c1, c2, tZelle



    tZelle = "A1"



    If Selection.Count = 2 Then

        Selection(1).Cut Destination:=Range(tZelle)

        Selection(2).Cut Destination:=Range(Selection(1).Address)

        Range(tZelle).Cut Destination:=Range(Selection(2).Address)

        Range(tZelle).Delete

    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 (2)", "tausche2")

        Set mi = .MenuItems.Add("Tausche (3)", "tausche3")

    End With



 MsgBox "autostart"

End Sub


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: