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