Zeichenumwandeln
18.07.2004 14:15:36
Sepp
Habe folgendes Problem ich möchte in einer Tabelle nach einem bestimmten Zeichen Suchen wie in dem unten dargestelltem Beispiel aus Herberts Excel CD.
Dim rngRange As Range
Dim intcounter As Integer
For Each rngRange In Range("d11").CurrentRegion.Cells
If Left(rngRange, 4) = "L" Then
rngRange = "A"
End If
Next rngRange
dieses Beispiel bring immer den Fehler "unverträglicher Typ" da es nicht auf den Bereich der tatsächlichen Tabelle beschränkt ist. Bereich "d11:ah28" es wandelt die Zeichen aber um.
Die Beispieltabelle enthält keine makros.
Kurzform.Tabelle durchsuchen alle gefundenen L umwandeln in A Tabelle drucken alle A umwandeln in L fertig.
vielen Dank für eure Hilfe Gruß Sepp
https://www.herber.de/bbs/user/8662.xls