...kann ich mit einem Satz nicht erklären... :)
07.09.2007 07:52:00
wean
Ich muss ein Excel Dokument durchsuchen und bestimmte "Überschriften" sind anders formartiert, jedoch in der selben Spalte als andere uninteressante Werte. Diese Überschriften sollen dann von Spalte A in Spalte F übertragen werden und dort so lange fortlaufen, bis man in der Spalte A zur nächsten Überschrift kommt. Nun das Finden und Übertragen der Überschriften in Spalte A war relativ leicht. Aber ich bekomme es nicht hin die Werte in Spalte "F" weiterzuführen wenn in "A" keine Überschrift steht. Hierzu wollte ich Abfragen ob in "A" eine Überschrift steht und falls nicht, in Spalte F den "zuvorigen Wert" verwenden:
Sub Test()
For i = 1 To Range("A65536").End(xlUp).Row
'Findet Überschriften in Spalte A und kopiert den Wert nach Spalte F (funktioniert)
If (Range("A" & i).Font.Bold) And (Range("A" & i).Font.ColorIndex = 3) And (Range("A" & _
_
_
_
i).Font.Size = 12) Then
Range("F" & i).Value = Range("A" & i)
End If
'Falls KEINE Überschrift in Spalte A gefunden wird, soll der zuletzt verwendete Wert aus _
Spalte F verwendet werden.
If Not (Range("A" & i).Font.Size = 12) And Not (Range("A" & i).Font.ColorIndex = 3) And _
_
_
_
Not (Range("A" & i).Font.Bold) Then
Range("F" & i).Value = Range("F" & i - 1)
End If
Next i
End Sub
Und dieses: Range("F" & i).Value = Range("F" & i - 1) funktioniert nicht.
Ich freue mich auf eure Hilfe :-))
Vielen Dank
wean