UserForm mit MS Office Spreadsheet

18/06/2009 - 21:03 von Eberhard Funke | Report spam
Hallo,

In ein Userform wurde das MS Office Spreadsheet (bei XL 2000 ist das 9.0)
eingefügt.
Nach Userform.Show sollen in B2:C3 Zahlen (Interger) eingegeben werden.
Diese sollen dann mit dem CommandButton in dem ActiveSheet
Test 1: in B2:C3 eingefügt
Test 2: den vorhandenen Zahlen in B2:C3 addiert werden.
Wie lautet der Code hierzu?
[Die Hilfe ist leider mal wieder sehr sparsam >-(]

Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
 

Lesen sie die antworten

#1 Claus Busch
18/06/2009 - 21:42 | Warnen spam
Hallo Eberhard,

Am Thu, 18 Jun 2009 21:03:03 +0200 schrieb Eberhard Funke:

In ein Userform wurde das MS Office Spreadsheet (bei XL 2000 ist das 9.0)
eingefügt.
Nach Userform.Show sollen in B2:C3 Zahlen (Interger) eingegeben werden.
Diese sollen dann mit dem CommandButton in dem ActiveSheet
Test 1: in B2:C3 eingefügt
Test 2: den vorhandenen Zahlen in B2:C3 addiert werden.
Wie lautet der Code hierzu?



probiers mal so (CommandButton sind auf der UserForm):

Private Sub cmdTest1_Click()
With Me.Spreadsheet1
.Range("B2:C3").Copy
ActiveSheet.Range("B2").PasteSpecial
End With
End Sub

Private Sub cmdTest2_Click()
Dim c As Range
With ActiveSheet
For Each c In .Range("B2:C3")
c = c + Me.Spreadsheet1.Range(c.Address)
Next
End With
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP1
Office 2003 SP3 / 2007 Ultimate SP2

Ähnliche fragen