AW: Zelle inkl. Format in Variable speichern
22.06.2006 12:25:58
fcs
Hallo Peter,
solange beide Arbeitsmappen geöffnet bleiben ist es am einfachsten entsprechende Range-Objekte zu deklarieren. Für Zellwerte kann man auch Variablen verwenden, bei Bereichen müssen die Daten in entsprechende Arrays eingelesen werden.
Beispiel:
Public rngZelle As Range, rngBereich As Range, iWert1 As String, iBereich1() As String
Sub Zuweisen()
Set rngZelle = ActiveWorkbook.Sheets("Tabelle1").Range("B5")
Set rngBereich = ActiveWorkbook.Sheets("Tabelle1").Range(Cells(11, 1), Cells(11, 10))
iWert1 = ActiveWorkbook.Sheets("Tabelle1").Range("B5").Value
ReDim iBereich1(1 To 10)
For I = 1 To 10
iBereich1(I) = ActiveWorkbook.Sheets("Tabelle1").Cells(11, 1).Offset(0, I - 1).Value
Next
End Sub
Sub Uebertragen()
With Workbooks("Mappe2.xls").Sheets("Tabelle2")
.Cells(2, 4).Value = rngZelle.Value
rngZelle.Copy
.Cells(2, 4).PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
.Range(.Cells(4, 1), .Cells(4, 10)).Value = rngBereich.Value
.Cells(1, 7) = iWert1
.Cells(3, 1) = iBereich1(5)
End With
End Sub
Formatierungen von Zellen lassen sich nicht in eine einzelne Variable einlesen. Diese muß man in einzelne Variablen oder auch in ein Array einlesen.
mfg
Franz