Text in Spalten Makro
31.03.2009 12:08:50
Steffen
folgendes problem: in Spalte E stehen datumswerte die aus einer anderen datei kopiert wurden,diese datumswerte werden mit einer bedingten formatierung belegt .da diese nach dem kopieren nicht als datumswert in der spalte stehn ,hab ich ein text in spalten makro aufgezeichnet sowie das dazugehörige formatierungsmakro.nun zu meinem problem:wenn ich die beiden makros durchlaufen lasse passiert nichts,wenn ich aber das gleiche manuell mache wird die formatierung erkannt?!
kann es am datumsformat liegen?
viele grüße steffen
Option Explicit
Sub rangee()
Range("E6:E373").Select
Selection.TextToColumns Destination:=Range("E6"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("G6").Select
End Sub
Sub vormatierungE6()
Range("E6:E400").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$2+3>=E6"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
ActiveWindow.SmallScroll Down:=-396
Range("G11").Select
End Sub
Anzeige