Variabler Zellenbereich
20.04.2016 14:32:00
Michael
irgendwie habe ich momentan eine Denkblockade.
In einem Tabellenblatt Spalte P werden monatlich unterschiedliche Textdaten eingepflegt.
Da der Text zu lange, wird er ab der ersten Raute # abgeschnitten.
ich bekomme es einfach nicht hin, dass das Makro bis zur letzten gefüllte Zelle durchläuft.
Habe mir momentan so geholfen:
Sub Makro2()
Sheets("Blatt1").Select
Spalte = "P"
StartZeile = 2
EndZeile = 200
For i = StartZeile To EndZeile
Cell = Spalte + Trim(Str(i))
Wert = Range(Cell).FormulaR1C1
If InStr(Wert, "#") > 0 Then
Pos = InStr(Wert, "#")
Wert = Left(Wert, Pos - 1)
Range(Cell).FormulaR1C1 = Wert
End If
Next i
End Sub
Schönen Dank im voraus.
Wünsche allen noch einen schönen Tag
Michael
Anzeige