Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1352to1356
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
Inhaltsverzeichnis

Probleme bei Übertragen von Daten

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
Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige