Home
VBA Beispiele
ohne VBA Beispiele
fremde Dateien
Hinweise zu Excel 2007
Übersicht Downloads
Bilder
Kontakt
Favoriten
Mein Heim-Forum
Tools Tabelle Forum
Impressum
Copyright
letzte Bearbeitung 27.08.11
Tabelle1
| A | B | C | D | |
| 1 | '- Zeichenfolge einer Zelle umkehren | |||
| 2 | '- Spalte C Funktion "Reverse1" erst ab Version 2000 | |||
| 3 | '- beide Lösungen nur per VBA | |||
| 4 | ||||
| 5 | ||||
| 6 | Holland | dnalloH | Holland | |
| 7 | Land | dnaL | Land | |
| 8 | Lagerregal | lagerregaL | Lagerregal | |
| verbundene Zellen |
| A1:D1 |
| A2:D2 |
| A3:D3 |
| verwendete Formeln | ||
| Zelle | Formel | Bereich |
| B6 | =Reverse(A6) | |
| C6 | =Reverse1(B6) | |
| B7 | =Reverse(A7) | |
| C7 | =Reverse1(B7) | |
| B8 | =Reverse(A8) | |
| C8 | =Reverse1(B8) | |
Tabellendarstellung in Foren Version 5.46
' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************
Option Explicit
Function Reverse(Z As String) As String
' von Any Body
Dim I As Integer
For I = Len(Z) To 1 Step -1
Reverse = Reverse & Mid(Z, I, 1)
Next I
End Function ' ab 2000 gibt es auch die Funktion StrReverse
Function Reverse1(Z As String) As String
' von Any Body
Reverse1 = StrReverse(Z)
End Function
Code eingefügt mit: Excel Code Jeanie