Fehler beim kopieren mit Vba

Hallo Leute...

Habe ein Problem mit meinem VBA-Code...!
Beim Kopieren mit folgendem Code fügt er mir nicht alle Daten ein...


Sub Kopieren()
Dim neues_sheet As String
Dim laR As Long
Application.ScreenUpdating = False
neues_sheet = InputBox("Bitte Kennzeichen des Fahrzeuges eingeben und mit Eingabetaste bestätigen ! Datenbank wird aktualisiert !")
If neues_sheet = "" Then Exit Sub
laR = Sheets(neues_sheet).Cells(Rows.Count, 1).End(xlUp).Row
If laR < 4 Then laR = 2
Range("A4:F180").Copy
Sheets(neues_sheet).Range("A" & laR + 2).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = False
End Sub

Wenn ich allerdings anstatt Paste:=xlAll, Paste:=xlValues einsetze fügt er alle Daten ein, leider habe ich aber auch farblich formatierte Zellen dabei.Meine Frage: Wie kann ich xlAll ändern wenn ich xlValues und xlFormats benötige.

Bitte helft mir...

Gruß Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopieren() Dim neues_sheet As String Dim laR As Long Application.ScreenUpdating = False neues_sheet = InputBox("Bitte Kennzeichen des Fahrzeuges eingeben und mit Eingabetaste bestätigen ! Datenbank wird aktualisiert !") If neues_sheet = "" Then Exit Sub laR = Sheets(neues_sheet).Cells(Rows.Count, 1).End(xlUp).Row If laR < 4 Then laR = 2 Range("A4:F180").Copy Sheets(neues_sheet).Range("A" & laR + 2).PasteSpecial Paste:=xlValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets(neues_sheet).Range("A" & laR + 2).PasteSpecial Paste:=xlFormats, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Application.ScreenUpdating = False End Sub

Hätte da noch ein Problem... :-(

Habe in einer Tabelle folgende Formeln eingesetzt:
Zelle A30: =INDIREKT(ADRESSE(4;1;;;$A$16))

Zelle A31: =WENN(INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16))=0;"";INDIREKT(ADRESSE(ZEILE()-26;1;;;$A$16)))
u.s.w.

Durch diese Formeln bekomme ich ja Daten aus einer anderen Tabelle in deren Zellen angezeigt...
Nun möchte ich aber, daß nicht nur die Daten sondern auch die Farbe der Zeile angezeigt wird...

Oder kann ich da irgendetwas durch die bedingte Formatierung hinbekommen, da ich zwischen den beschriebenen Zellen immer eine Zeile frei habe, d.h. daß er immer bei der ersten beschriebene Zeile die ganze Zeile gelb einfärbt...
Allerdings dürfte das Ganze erst ab Zeile 30 aktiv werden...

Gruß Thomas

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler beim kopieren mit Vba

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread