Auslesen der Werte in UF nach Aktualisie

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Auslesen der Werte in UF nach Aktualisie

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auslesen der Werte in UF nach Aktualisie

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread