ich habe diesen Code gefunden hier und bin eigentlich sehr zufrieden. Kann man aber diesen Code _ ein bischen abändern:
Sub indiewerkstatt()
Dim naechste As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets("protokoll")
If ActiveCell.Column = 4 Then
If MsgBox("aktive Spalte wird kopiert?", vbQuestion + vbYesNo, "Nachfrage") _
= vbYes Then
With Worksheets("Tabelle2")
naechste = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(naechste, 1) = "Kremser"
.Cells(naechste, 2) = ActiveCell
.Cells(naechste, 3) = ActiveCell.Offset(, 1)
.Cells(naechste, 4) = Application.InputBox("Was ist defekt ?", "Grund")
.Cells(naechste, 5) = Date
.Cells(naechste, 6) = "In Arbeit"
wks2.Unprotect "2510"
.Cells(naechste, 1).Resize(1, 5).Copy wks2.Cells(wks2.Cells(Rows.Count, 1).End(xlUp) _
_
_
_
.Row + 1, 1)
wks2.Protect "2510"
End With
ActiveCell.Resize(1, 2).ClearContents
End If
End If
Range("D2:E20").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 49407
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D21:E29").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("G11").Select
End Sub
Dieser Code schneidet die AKTIVE In der Spalte D die Zeile ( z.B. D4 ) aus und kopiert sie dann mit der E4 in das Tabellenblatt2 rein.
Kann man die Aktive nicht ausschneiden sondern das die Zahl bzw. Wort " rot" und Fett größe12 wird und nicht verschwindet.?
Sonst alle so lassen.
Hoffe ihr könnt mir diesen Code ändern.
Schönen Abend noch
Grüße Peter
Liebe Grüße aus der Österreich