AW: Auslesen der Werte in UF nach Aktualisie
31.05.2020 12:20:09
Peter
Hallo Thorsten,
vielen Dank für Deine Hilfe. Leider funktioniert dies nicht so wie ich dies benötige.
Das Problem ist, dass nach Einfügen von Daten das Aktualisieren der Formeln benötigt wird und dies ca. 2-4 Sekunden benötigt.
Nach diesem Aktualisieren sollen die Daten in die Textboxes eingelesen werden. Ich habe dies nun wie folgt gelöst:
Es werden über ein Makro die Kontodaten ermittelt und in die Tabelle eingetragen. Mittels zweier Commandbutton werden die Daten geprüft und nach Zeitverzögerung 2. Button ausgelöst und übertragen.
'Prüfung, ob Wert in Konto vorhanden
Private Sub CommandButton24_Click()
Dim wb As Workbook 'für Workbook
Dim wksWd As Worksheet
Set wb = ThisWorkbook
Set wksWd = wb.Worksheets("Worddaten")
Application.Wait Now + TimeSerial(0, 0, 5) '5 sekunden Pause
If wksWd.Range("H13") = "#BEZUG!" Then
CommandButton23.Enabled = False
ElseIf wksWd.Range("H13") >= 0 Then
CommandButton23.Enabled = True
CommandButton23 = True
CommandButton24.Enabled = False
End If
End Sub
'Kontoprüfung
Private Sub CommandButton23_Click()
Dim wb As Workbook 'für Workbook
Dim wksWd As Worksheet
Set wb = ThisWorkbook
Set wksWd = wb.Worksheets("Worddaten")
If wksWd.Range("H13") >= 0 Then
Call TB_füllen
End If
'Hier Prüfung einbauen ob Werte vorhanden oder nicht ggf. ListBox2 öffnen und Text
If TextBox23.BackColor = &HFF& Or TextBox23.BackColor = &H80FFFF Then
Label39.Caption = vbLf & vbLf & " in keinem Konto _
ist Wert vorhanden"
ListBox2.Enabled = False
ElseIf TextBox23.BackColor = &HC0FFC0 Then
Label39.Caption = vbLf & vbLf & " in mind. 1 Konto _
ist Wert vorhanden"
ListBox2.Enabled = True
CommandButton14.Enabled = True
End If
CommandButton23.Enabled = False
End Sub
Das dauert die max. 5 Sekunden und dann sind alle Werte in der Tabelle vorhanden.
Vielleicht etwas umständlich aber es funktioniert. Eine andere Lösung ist mir nicht eingefallen.
Wünsche Dir noch ein schönes Wochenende.
Gruss
Peter