Probleme bei Übertragen von Daten

Forumthread: Probleme bei Übertragen von Daten

25.03.2014 12:02:19

Daten

Hallo Fachleute,
ich hab von Rudi einen tollen Code bekommen zum Übertragen von Daten aus einer Tabelle in eine andere - und zwar die Werte, Schriftfarbe und Zellhintergrund. Leider hab ich damit Probleme: die Werte werden übernommen, nicht aber die Schrift- und die Zellfarbe. Ich hab ein kleines Beispiel erstellt - mit dem Code von Rudi - das hoffentlich alles NÖtige beinhaltet: https://www.herber.de/bbs/user/89833.xls
Woran kann das lieben, könnt Ihr mir da bitte weiterhelfen?
Danke schonmal und Grüße
Franz

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Probleme bei Übertragen von Daten

25.03.2014 12:49:32

Daten
AW: Probleme bei Übertragen von Daten

25.03.2014 13:24:18

Daten

AW: Probleme bei Übertragen von Daten

25.03.2014 12:49:32

Daten

Hallo,
das ist bei weitem komplizierter. Du musst dir für jede Zelle die Farben merken.

Sub Listen_kopieren()
Dim zahlenformat As String
Dim plusSpal As Byte
Dim nQ As Byte, nZ As Byte
Dim rngL(1 To 9)
Dim arrColI(1 To 9)
Dim arrColF(1 To 9)
Dim arrColI_a, arrColF_a, i As Long
'aktuellen Tag ermitteln:
Call HeutHelp
Tabelle2.Activate
'Zahlenformat für die Datumsangaben:
zahlenformat = Space(15) & "ddd  *  dd/  mmm  yyyy" & Space(15)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'die Bereiche aus 'GeigeCal' einlesen:
With Tabelle1
.Unprotect
For nQ = 1 To 9
ReDim arrColI_a(1 To .Range("gcListe" & nQ).Count)
ReDim arrColF_a(1 To .Range("gcListe" & nQ).Count)
rngL(nQ) = .Range("gcListe" & nQ)
For i = 1 To .Range("gcListe" & nQ).Count
arrColI_a(i) = .Range("gcListe" & nQ)(i).Interior.ColorIndex
arrColF_a(i) = .Range("gcListe" & nQ)(i).Font.ColorIndex
Next
arrColI(nQ) = arrColI_a
arrColF(nQ) = arrColF_a
Next nQ
End With
plusSpal = 2
For nZ = 1 To 9
With Tabelle2
'Datenbereiche eintragen:
With .Cells(40, spal + plusSpal)
.Resize(UBound(rngL(nZ))) = rngL(nZ)
.NumberFormat = zahlenformat
.Font.Size = 10
For i = 1 To UBound(rngL(nZ))
With .Offset(i - 1)
.Interior.ColorIndex = arrColI(nZ)(i)
.Font.ColorIndex = arrColI(nZ)(i)
End With
Next i
End With
End With
'Spaltenzähler hochzählen:
plusSpal = plusSpal + 5
Next nZ
Application.Calculation = xlCalculationAutomatic
End Sub

Gruß
Rudi

AW: Probleme bei Übertragen von Daten

25.03.2014 13:24:18

Daten

Hallo Rudi,
ja, ich seh schon. Und wenn ich mich reindenke, kommt ich auch langsam dahinter (hab auch nen kleinen (Tip-)fehler gefunden, der einen Fehler ausgelöst hat :-))) : in ".Font.ColorIndex = arrColF(nZ)(i)" muss "arrColF" stehen)
Vielen Dank und Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Probleme bei Übertragen von Daten

Forumthread: Probleme bei Übertragen von Daten

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread