title image


Smiley Formatierung in Array?
Hallo,

Dieser VBA-Schnipsel liest mittels Inputbox einen Bereich ein und gibt ihn woanders wieder aus. Leider bleibt die Formatierung auf der Strecke. Es werden nur Werte eingelesen. Gibt es eine Möglichkeit, die Formatierung der Zellen mit zu übertragen?

Vielen Dank





Sub Bereich_Input_Output()

Dim Inputrange As Range, Outputrange As Range, varArray() As Variant

Set Inputrange = Application.InputBox( _

Prompt:="Eingabebereich mit der Maus markieren.", Title:="Auswahl", Type:=8)

Set Outputrange = Application.InputBox( _

Prompt:="Oberste linke Zelle des Ausgabebereiches mit der Maus markieren.", _

Title:="Auswahl", Type:=8)



varArray = Inputrange

'Inputrange.Clear



'Ausgabe

Range(Outputrange.Cells(1, 1), Cells(Outputrange.Row + _

Inputrange.Rows.Count - 1, Outputrange.Column + _

Inputrange.Columns.Count - 1)) = varArray

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: