Autor
|
Thema: Zelleninhalt tauschen (1953 mal gelesen)
|
Sepeltura Mitglied
Beiträge: 7 Registriert: 30.06.2004
|
erstellt am: 30. Jun. 2004 12:04 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich möchte in Excel folgendes Realisieren.. das 2 Zelleninhalte getauscht werden. z.b. C2 mit C4, D2 mit D4, E2 mit E4 sollen getauscht werden... Gibt es da eine Möglichkeit? By the way.. ich habe noch keine Ahnung von VBA usw.. Gruss Sepel...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
melzig Mitglied Maschinenbautechniker
Beiträge: 396 Registriert: 15.01.2003 Intel Xeon CPU E5-1650v2 @3,5 GHz; 32 GB RAM Quadro K4000 3 GB 2x 20" TFT LG Flatron L2000CN Space Pilot 3D Connexion Windows 7 Professional 64 Bit Inventor Professional 2015 -64-Bit-Edition- Inventorintegration für Autodesk Productstream Professional 2011
|
erstellt am: 30. Jun. 2004 12:55 <-- editieren / zitieren --> Unities abgeben: Nur für Sepeltura
@ sepeltura Mir fällt gerade nur eine Variante mit einer Zwischenzelle ein. Hier eine Variante um C2 mit C4 zu tauschen. Kann du dir ja erweitern. Sub Tauschen() Tabelle1.Range("C500").Value = Tabelle1.Range("c2").Value Tabelle1.Range("C2").Value = Tabelle1.Range("c4").Value Tabelle1.Range("C4").Value = Tabelle1.Range("c500").Value Tabelle1.Range("C500").Clear End Sub Du öffnest den Visual Basic Editor und fügst ein neues Modul ein. In dieses Modul kommt dieser Code. Jetzt kannst du dir ja noch ein benutzdefiniertes Icon machen, dem du dieses Makro zuweist. Tschüß Frank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sepeltura Mitglied
Beiträge: 7 Registriert: 30.06.2004
|
erstellt am: 30. Jun. 2004 13:30 <-- editieren / zitieren --> Unities abgeben:
|
startrek Moderator Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 30. Jun. 2004 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für Sepeltura
Hi auch, oder so ähnlich, x für zusammenhängende Spalten, y für gesamten Zeilentausch: Sub x() Dim a, b, i As Byte For i = 3 To 10 'Spalte C bis J a = Cells(2, i).Value: b = Cells(4, i).Value Cells(2, i) = b: Cells(4, i) = a Next End Sub Sub y() Dim a, b a = Range(Cells(2, 1), Cells(2, 256)): b = Range(Cells(4, 1), Cells(4, 256)) Range(Cells(2, 1), Cells(2, 256)) = b: Range(Cells(4, 1), Cells(4, 256)) = a End Sub lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Technischer Systemplaner (m/w/d) Versorgungstechnik | VIVAWEST ist einer der führenden Wohnungsanbieter in NRW und bewirtschaftet rund 120.000 Wohnungen in ca. 100 Kommunen an Rhein und Ruhr. Für den Bereich Bestandstechnik, Fachbereich Technische Gebäudeausrüstung, suchen wir zum nächstmöglichen Zeitpunkt einen Mitarbeiter.
- Gewährleistung der klima- und unternehmensstrategiekonformen Planung einschließlich der Dokumentation von ...
| Anzeige ansehen | Gebäude-, Versorgungs-, Sicherheitstechnik |
|
Sepeltura Mitglied
Beiträge: 7 Registriert: 30.06.2004
|
erstellt am: 30. Jun. 2004 14:16 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|