Office: Nicht Zelle sondern Zeile ansprechen

Bernhard_bernhard · 5. Januar 2009

Hallo,

ich habe von einem Freund folgenden Code geschrieben bekommen. Er macht im grundsatz folgendes:

Die Markierten Zellen werden mit Schriftfarbe Rot und Durchgestrichen gekennzeichnet
Der Text aus Zeile A (welche markiertr ist) wird kopiert
Eine Neue Zeile wird eingefügt und Text aus Zeile A wird reinkopiert, jedoch mit der normalen Formatierung.

Jetzt habe ich das Problem das die anderen Zellen in der neu angelegten Zeile das Format "Rot & DurchgestricheN" haben.. wie bekomm ich das hin das es wieder das Standardformat ist???

Hier der Code:

Code:

Private Sub CommandButton4_Click()
' Sub STORNO()

Dim Zeile As Integer
Dim Spalte As Integer

With Selection.Font
.Name = "Georgia"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With

Zeile = ActiveCell.Row
Spalte = ActiveCell.Column

Cells(Zeile + 1, Spalte).EntireRow.Insert

Cells(Zeile + 1, 1) = Cells(Zeile, 1) 'kopiert die Zeit (aus Spalte A)
Cells(Zeile + 1, Spalte).Select
With Selection.Font
.Name = "Georgia"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

OfficeUser · 7. Januar 2009

Hallo Bernhard,

versuche es mal so :

VBA-Code:
Private Sub CommandButton4_Click()
    Dim Zeile As Integer
    Dim Spalte As Integer

    Zeile = ActiveCell.Row
    Spalte = ActiveCell.Column

    Cells(Zeile + 1, Spalte).EntireRow.Insert

    Cells(Zeile + 1, 1) = Cells(Zeile, 1) 'kopiert die Zeit (aus Spalte A)

    With Selection.Font
        .Name = "Georgia"
        .FontStyle = "Standard"
        .Size = 10
        .Underline = xlUnderlineStyleNone
        .Strikethrough = True
        .ColorIndex = 3
    End With

    With Cells(Zeile + 1, Spalte).Font
        .Name = "Georgia"
        .FontStyle = "Standard"
        .Size = 10
        .Underline = xlUnderlineStyleNone
        .Strikethrough = False
        .ColorIndex = xlAutomatic
    End With
End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Bernhard_bernhard · 7. Januar 2009

SUPER.. HERZLICHEN DANK!!! Funktioniert echt gut... *Smilie *Smilie *Smilie

Office: Nicht Zelle sondern Zeile ansprechen

Nicht Zelle sondern Zeile ansprechen

Nicht Zelle sondern Zeile ansprechen

Nicht Zelle sondern Zeile ansprechen - Similar Threads - Zelle Zeile ansprechen

leere Zelle in Zeile finden

Spalten sortieren, wenn die ersten 2 Zeilen aus verbundenen Zellen bestehen

Zellen aus Aktiver Zeile kopieren

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Zelle aus einem Blatt merken, in anderem Blatt suchen und in der Zeile andere Spalte überschreiben

Wenn in Zeile bestimmter Wert dann ganze Zelle kopieren

Zellen pro Zeile vergleichen in zwei Spalten