Herbers Excel-Forum - das Archiv

Spreadsheet auf UF: Formate einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Spreadsheet auf UF: Formate einlesen
von: Torsten

Geschrieben am: 11.03.2005 16:40:20
Hallo zusammen,
wie kann ich einfach eine vielseitig formatierte Tabelle (Schriftart, Schriftgröße, Schriftfarbe, Rahmen, Hintergrundfarbe) in ein Spreadsheet auf eine UF einlesen? Momentan habe ich nur u.g. Code der die Werte einliest.
Mittels Copy und Paste (manuell) funktioniert es aber eben nicht per VBA bis dato....
Herzlichen Dank,
Torsten

Dim rng As Range
Dim iRow As Integer, iCol As Integer
Set rng = Range("A1").CurrentRegion
For iRow = 1 To rng.Rows.Count
For iCol = 1 To rng.Columns.Count
Spreadsheet1.Cells(iRow, iCol).Value = rng.Cells(iRow, iCol).Value
Next iCol
Next iRow
Bild

Betrifft: copy & paste ??
von: ransi

Geschrieben am: 11.03.2005 17:04:05
hallo thorsten
versuchs mal so:
Public
Sub test()
Dim zelle As Range
'MsgBox [a1].CurrentRegion.Address
For Each zelle In Range("a1").CurrentRegion
zelle.Copy
UserForm1.Spreadsheet1.Range(zelle.Address).Paste
Next
End Sub

oder so:
Public
Sub t()
Range("a1").CurrentRegion.Copy
UserForm1.Spreadsheet1.Range("a1").Paste
End Sub

müssten beide gehn..
ransi
Bild

Betrifft: Funktioniert noch nicht
von: Torsten

Geschrieben am: 14.03.2005 08:53:25
Hallo Ransi,
es funktioniert doch noch nicht.
Ich bekomm die Fehlermeldung "Let Prozedur der Eigenschaft ist nicht definiert und Get Prozedur hat kein Objekt zurückgegeben"...
Hast Du da noch ne Idee?
Schönen Start in den Tag,
Torsten
 Bild
Excel-Beispiele zum Thema "Spreadsheet auf UF: Formate einlesen"
Tabelle in UserForm-Office-Spreadsheet übernehmen Tabelle in UserForm-Spreadsheet einlesen
Tabellenblattzeile mit SpreadSheet-Objekt überlagern Eingabeerleichterung bei Zeitformaten
Werte nur mit Zahlenformaten übertragen Werte aus UserForm-TextBox in bestimmten Formate übertragen
Datenmaske mit landesspzifischen oder US-Formaten aufrufen Tabelle gem. hinterlegten Zahlenformaten formatieren
Alle Formate jenseits der letzten benutzten Zelle löschen Bei UserForm-TextBox-Eingaben Formate erzwingen