Zeilen per VBA einfügen, bestimmte Werte kopieren!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steve,
da hast du ja was von mir ausgegraben.
Geändert ist jetzt: Die Zellwerte werden mit übernommen. Die Werte in der eingefügten Zeile werden kursiv und rot formatiert (komplette Zeile).

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
Dim zeilenanzahl As Long
Dim x As Integer
Dim i As Integer
x = 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'#### Doppelklick in Spalte A ab Zeile 4, ggf. anpassen ####
If Target.Column = 1 And Target.Row > 3 Then
'#### Tabellenblatt und Passwort anpassen ####
Worksheets("Prozessbewertung").Unprotect Password:="Andreas"
On Error GoTo Notausgang
zeilenanzahl = InputBox("Wieviel Zeilen?", "Zeilen einfügen")
With ActiveCell
For i = 1 To zeilenanzahl
If ActiveCell = "" Then
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
Else
.EntireRow.Copy
.EntireRow.Offset(x, 0).Insert shift:=xlDown
.EntireRow.Offset(x, 0).PasteSpecial
.EntireRow.Offset(x, 0).Font.Italic = True
.EntireRow.Offset(x, 0).Font.ColorIndex = 3
ActiveCell.Offset(-x, 0).Select
End If
x = x + 1
Next i
.Offset(1, 0).Select
End With
'#### Tabellenblatt und Passwort anpassen ####
Sheets("Prozessbewertung").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowSorting:=True, AllowFiltering:=True, _
Password:="Andreas"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Notausgang:
cancel = True
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
'#### Tabellenblatt und Passwort anpassen ####
Sheets("Prozessbewertung").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowSorting:=True, AllowFiltering:=True, _
Password:="Andreas"
End If
End Sub

Gruß Werner

Hallo,
vielen Dank, Werner. Ja, es ist ein alter Beitrag gewesen, aber es ist ja trotzdem noch hilfreich für mich!
Ich habe den Code entsprechend angepasst bei mir und es funktioniert auch soweit, wie es soll.
Ich müsste es nun nur noch etwas anpassen an mein Sheet, also es sollen z.B. nur die ersten sechs Werte der Ursprungszeile, also aus A-F übernommen werden, also nicht alle Werte der Zeile.
Die Schriftfarbe stelle ich ja hier...

 .EntireRow.Offset(x, 0).Font.ColorIndex = 3

über den Zahlenwert ein. Gibt es dafür eine Übersicht, welcher Wert für welche Farbe in VBA steht?
Und wie ist es mit der kursiven Schrift oder wenn ich die Schrift fett übernommen haben möchte oder einen anderen Schrifttyp für die einkopierten Zeilen, welche Code-Zeile ist dafür zuständig, ist das diese hier:

.EntireRow.Offset(x, 0).Font.Italic = True

?
Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Zeilen per VBA einfügen, bestimmte Werte kopieren!

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen per VBA einfügen, bestimmte Werte kopieren!

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread