Guten Abend,
ich habe folgendes Makro, funktioniert einwandfrei.
Jetzt habe ich allerdings die Textbox20, 21 und 32 mit
€ Beträgen hinterlegt.
Die Zahlen werden ebenfalls reinkopiert allerdings nur als Text also ich kann
die Summen nicht addieren.
In den Zellen werden oben Links kleinbe Dreiecke angezeigt, gehe ich da rein,
mit F2 und bestätige dies, dann wird gerechnet.
Die Textbox 20 ist in der Spalte20 etc. .
Dim wbDatei, wb As Workbook
Dim wsData As Worksheet
Dim aVarData() As String
Dim lngY As Long
Dim strValue As String
Dim lngrow As Long
Set wsData = Sheets("Datenbank") ' Datenblatt zuweisen
Dim ww
ww = UFDatenbank.TextBox1.Value 'ww ist die Zahl in der Textbox1 steht
lngrow = ww + 2
' MsgBox lngRow - 2
'--------------------------------------------------
Dim lLetzte As Long
Dim iIndex As Integer
Application.ScreenUpdating = False
With Worksheets("Datenbank")
For iIndex = 2 To 25
.Cells(ww + 2, iIndex).Value = Trim(Controls("TextBox" & iIndex).Text)
.Cells(ww + 2, 11).FormulaR1C1 = "=TODAY()-RC[-1]"
Next iIndex
End With
UFDatenbank.TextBox20 = Format(TextBox20.Value, "#,##0.00")
Application.ScreenUpdating = True
End Sub
gruß walter mb