Hilfe

Ich habe noch eine Frage an die community.
Ich habe eine userform mit der ich daten mit Hilfe von Textboxen in Tabellenblätter eintragen lasse mit folgendem Code.
Private Sub cmdEintragen_Click()
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Range("B39").End(xlUp).Row + 1
If intErsteLeereZeile > 5 And intErsteLeereZeile ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.DTPicker1.Value
'' MsgBox intErsteLeereZeile
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.cboKostenstellen.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtGeplanteAusgaben.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtSonstigeAusgaben.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtEinnahmen.Value
ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.txtGeldtransfer.Value
End If
''MsgBox intErsteLeereZeile
Unload frmBank
frmBank.Show
End If
Nun will ich, damit ich nicht immer in die Tabelle schauen muss, die EIntragungen gleichzeitig innerhalb der Userform noch mal eintragen. Welches Steuerelemt kann ich dafür nehmen bzw. ist das überhaupt umsetzbar?
Gruß Ich hoffe auf eure Unterstürzung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hilfe

25.11.2015 19:09:09

Sepp

AW: Hilfe

26.11.2015 16:11:02

Armbruster

AW: Hilfe

26.11.2015 17:52:08

Sepp

AW: Hilfe

28.11.2015 10:55:56

Armbruster

AW: Hilfe

28.11.2015 11:53:27

Sepp

AW: Hilfe

28.11.2015 16:55:26

Armbruster

Hallo Felix,
nimm zur Datenprüfung eine MsgBox.

Private Sub cmdEintragen_Click()
Dim intErsteLeereZeile As Long
Dim strMsg As String

strMsg = "Überprüfen Sie Ihre Angaben!" & vbLf & vbLf & String(35, "-") & vbLf
strMsg = strMsg & "Datum:" & String(10, " ") & vbTab & Format(DTPicker1.Value, "dd.mm.yyyy") & vbLf
strMsg = strMsg & "Kostenstelle:" & String(3, " ") & vbTab & cboKostenstellen.Value & vbLf
strMsg = strMsg & "Gepl. Ausgaben: " & vbTab & txtGeplanteAusgaben.Value & vbLf
strMsg = strMsg & "Sonst. Ausgaben:" & vbTab & txtSonstigeAusgaben.Value & vbLf
strMsg = strMsg & "Einnahmen:" & String(6, " ") & vbTab & txtEinnahmen.Value & vbLf
strMsg = strMsg & "Transfer:" & String(7, " ") & vbTab & txtGeldtransfer.Value & vbLf
strMsg = strMsg & String(35, "-") & vbLf & vbLf & "Sollen diese Daten eingetragen werden?"

If MsgBox(strMsg, vbQuestion + vbYesNo, "Überprüfung") = vbYes Then
  
  intErsteLeereZeile = ActiveSheet.Range("B39").End(xlUp).Row + 1
  
  If intErsteLeereZeile > 5 And intErsteLeereZeile <= 39 Then
    
    ActiveSheet.Cells(intErsteLeereZeile, 2).Value = DTPicker1.Value
    ActiveSheet.Cells(intErsteLeereZeile, 3).Value = cboKostenstellen.Value
    ActiveSheet.Cells(intErsteLeereZeile, 6).Value = txtGeplanteAusgaben.Value
    ActiveSheet.Cells(intErsteLeereZeile, 5).Value = txtSonstigeAusgaben.Value
    ActiveSheet.Cells(intErsteLeereZeile, 4).Value = txtEinnahmen.Value
    ActiveSheet.Cells(intErsteLeereZeile, 7).Value = txtGeldtransfer.Value
    
  End If
  
  Unload frmBank
  
  frmBank.Show
  
End If

End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread