Der Benutzer trägt hier seine Urlaubstage für das ganze Jahr ein.
Die Übernahme funktioniert eigentlich gut mit folgendem Code:
-------------------------------------------------------------
Diese Arbeitsmappe:
Const SpalteUrl% = 41
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
With dlgMitarbeiterBea
If .Visible = True Then
.txtStornoUrl = Cells(Target.Row, SpalteUrl).Text
End If
End With
End Sub
In der Userform "dlgMitarbeiterBea":
Const SpalteUrl% = 41
Cells(ActiveCell.Row, SpalteUrl).Formula = txtStornoUrl
-------------------------------------------------------------
Leider kann ich aber irgendwie keine Summen (Summe = Alle Urlaubseingaben ) mehr bilden...
Denke mal das Excel die Urlaubseingaben in Text Form in die Zellen kopiert...
Somit habe ich meine Code abgeändert:
-------------------------------------------------------------
In der Userform "dlgMitarbeiterBea":
Const SpalteUrl% = 41
Dim Urleingabe4 As Integer
Urleingabe4 = CInt(txtStornoUrl)
Cells(ActiveCell.Row, SpalteUrl).Formula = Urleingabe4
--------------------------------------------------------------
Jetzt funktioniert die Summenbildung auch...
Mein Problem ist jetzt...
Ich weiß nicht ob ich die richtigen "Typen" (Integer,Cnt)verwende. Oder ob man das überhaupt so macht...
Ich brauche "Typen" die Ganzzahlen von ca. -100 bis ca. +100
dem Excel zurückgeben.
Hoffe es kann mich einer Verstehen... :-)
Vielen Dank für eure Hilfe im Voraus
Silvio