so sollte es gehen:
Tabelle1
| A | B | C | |
| 1 | 11111 | München | 089 |
| 2 | Berlin | 030 |
| Formeln der Tabelle | ||||||
|
Tabelle2
| A | B | |
| 1 | Berlin | 030 |
| 2 | München | 089 |
R?ckmeldung w?re nett! - Gr??e von Erich aus Kamp-Lintfort
| A | B | C | |
| 1 | 11111 | München | 089 |
| 2 | Berlin | 030 |
| Formeln der Tabelle | ||||||
|
| A | B | |
| 1 | Berlin | 030 |
| 2 | München | 089 |
Sub l?sche()
Dim bereich As Range
For Each bereich In Selection
If Right(bereich, 1) = " " Then
bereich = Left(bereich, Len(bereich) - 1)
End If
Next bereich
End Sub
Gruss
Tino
| A | B | C | |
| 1 | 11111 | München | 089 |
| 2 | Berlin | 030 |
| Formeln der Tabelle | ||||||
|
| A | B | |
| 1 | Berlin | 030 |
| 2 | München | 089 |
Sub l?sche()
Dim bereich As Range
For Each bereich In Selection
If Right(bereich, 1) = " " Then
bereich = Left(bereich, Len(bereich) - 1)
End If
Next bereich
End Sub
Gruss
Tino