Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler beim kopieren mit Vba

Fehler beim kopieren mit Vba
03.10.2003 14:16:19
Thomas
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

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

Betreff
Datum
Anwender
Anzeige
AW: Fehler beim kopieren mit Vba
03.10.2003 14:38:27
Panicman
Hallo Thomas,

2 mal "Einfügen". 1 mal Werte und 1 mal Formate

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


Gruß
Holger
Anzeige
AW: Fehler beim kopieren mit Vba
03.10.2003 14:47:14
Thomas
Viele Dank...
Suuuuuuuuuuper...

Gruß Thomas
Bitteschön !!! o.T.
03.10.2003 15:01:46
Panicman
AW: Bitteschön !!! o.T.
03.10.2003 16:06:13
Thomas
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
Anzeige
AW: Bitteschön !!! o.T.
03.10.2003 19:36:43
Thomas
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
Anzeige
Rückfrage !!!
03.10.2003 21:13:04
Panicman
Hallo Thomas,

ich verstehe deine Frage nicht.
Soll ab Zeile 30 jede 2. Zeile gelb werden, wenn ein Wert über Indirekt() drin steht?
oder soll jede Zelle ab Zeile 30 gelb werden, wenn durch Indirekt() ein Wert drin steht.

Erklär mal genauer

Gruß
Holger
AW: Rückfrage !!!
03.10.2003 22:39:42
Thomas
also, z.B.: in Zelle A30,B30,C30,D30,E30,F30
und in Zelle A31,B31,C31,D31,E31,F31 werden die Daten angezeigt...
dann wird erst wieder in Zelle A33,B33,C33 usw. Daten angezeigt...

Jetzt müsste praktisch A30,B30,C30,D30,E30,F30 gelb markiert werden und dann erst wieder Zelle A33,B33,C33 usw.

Das Problem ist aber, da sich dies ständig ändert,z.B.: von A30 bis F37 werden Daten angezeigt,dann kommt wieder eine Leerzeile...
Dann wieder Daten von z.B.: A39 bis F45

Dabei soll dann praktisch wieder nur A30 bis F30 gelb markiert werden und dann erst wieder A39 bis F39. Wie gesagt das ändert sich jedesmal.
Es müsste praktisch immer wieder die erste beschrieben Zeile ermittelt werden die dann Gelb formatiert wird...

Gruß Thomas
Anzeige
AW: meinst du so ??
04.10.2003 01:16:48
Thomas
ja aber das Problem ist dann daß ich jede Zelle mit der bedingten formatierung bestücken muß...
und der zellbereich geht von A30 bis F5000...

Dann sind meine Finger wund...*ohgott*

Gibt es was einfacheres...?

Gruß Thomas
Ja, gibt es !!
04.10.2003 01:25:29
Panicman
Hallo Thomas,

die Formel in der bedingten Formatierung um die 2 "$" ergänzen.
=UND($A30<>"";$A29="")
dann die Zelle A30 kopieren, dann den Bereich A30:F5000 markieren.
Menü/Bearbeiten/Inhalte einfügen FORMATE und OK.

dann hast du überall die gelben Zeilen, wenn die Zeile einen Wert hat
und die Zeile davor leer ("") ist.

Gute Nacht
Holger
Anzeige
AW: Ja, gibt es !!
04.10.2003 12:17:29
Thomas
Suuuuuuuuuuuuuuuuper

Geht alles...
Vielen Dank nochmal...

Gruß Thomas
Bitteschön, hab gern geholfen !!! o.T.
04.10.2003 15:56:38
Panicman
AW: Fehler beim kopieren mit Vba
03.10.2003 19:37:51
Thomas
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
Anzeige

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige