ich würde gern per Makro folgendes erreichen:
1. Spalte B, C, D und H sollen gelöscht werden...
2. in Spalte G sollen von rechts gesehen 7 Zeichen des Zellinhaltes gelöscht werden
Wie mache ich das?
Danke im Voraus....
Liebe Grüße
SELMA
Sub t()
Range("B:B,C:C,D:D,H:H").Delete
End Sub
Sub r()
Dim zelle As Range
For Each zelle In Range("D:D").SpecialCells(xlCellTypeFormulas)
If InStr(1, zelle.FormulaLocal, "=JETZT()") > 0 Then zelle.NumberFormat = "dd/mm/yy"
Next
End Sub
i=1
with Range("G:G")
while len(.cells(i).value)>6
.cells(i).value=left(.cells(i).value,len(.cells(i).value)-7)
i=i+1
wend
end with
Sub DEL()
Range("B:B,C:C,D:D,H:H").Delete
i = 1
With Range("D:D")
While Len(.Cells(i).Value) > 6
.Cells(i).Value = Left(.Cells(i).Value, Len(.Cells(i).Value) - 9)
i = i + 1
Wend
End With
End Sub
with Range("G1:G...") 'für ... die letzte Zeile einsetzen
for i=1 to .cells.count
if len(.cells(i).value)>6
.cells(i).value=left(.cells(i).value,len(.cells(i).value)-7)
end if
next i
end with