Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textboxen füllen wenn leer

Forumthread: Textboxen füllen wenn leer

Textboxen füllen wenn leer
07.12.2007 16:15:29
Fred
hallo
Ich habe in meiner Tabelle ca 26 Textboxen, bevor ich diese Ausdrucke würde ich gerne das alle Leeren Boxen den Eintrag keine Fehler vorgegeben bekommen ist soetwas mittels VBA möglich.
Wenn ja bitte ich um den Code
Danke Fred

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textboxen füllen wenn leer
07.12.2007 16:26:00
Fred
ichbins nochmal
Als zusatz habe ich noch vergessen zu sagendas nach dem drucken die Leeren Textboxen dann auch wieder leer sein sollen.

AW: Textboxen füllen wenn leer
07.12.2007 20:06:00
Heiko
Hallo Fred,
da du nicht gesagt hast ob es Textboxen aus der Toolbox oder aus der Formularbox sind, bin ich mal von Textboxen aus der Toolbox ausgegangen.
Ausserdem geht mein Code davon aus, das das Tabellenblatt mit den Tb´s das aktive ist zum Zeitpunkt des Druckes.
In das Codefenster von DieseArbeitsmappe:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
TextRein
End Sub


Und dies in ein allgemeines Modul:
Option Explicit
Public ArrWoWarWasDrin() As String


Public Sub TextRein()
Dim objTB As Object
Dim intArrCounter As Integer
Erase ArrWoWarWasDrin
For Each objTB In ActiveSheet.OLEObjects
If TypeName(objTB.Object) = "TextBox" Then
If objTB.Object.Text = "" Then
objTB.Object.Text = "Kein Fehler"
ReDim Preserve ArrWoWarWasDrin(intArrCounter)
ArrWoWarWasDrin(intArrCounter) = objTB.Name
intArrCounter = intArrCounter + 1
End If
End If
Next objTB
' Da es kein Ereignis AfterPrint gibt, muss man sich hier mit einer Krücke behelfen
' und das TextRaus einfach ein paar Sekunden nach TextRein starten.
Application.OnTime Now + TimeValue("00:00:05"), "TextRaus"
End Sub



Public Sub TextRaus()
Dim intArrCounter As Integer
For intArrCounter = LBound(ArrWoWarWasDrin) To UBound(ArrWoWarWasDrin)
ActiveSheet.OLEObjects(ArrWoWarWasDrin(intArrCounter)).Object.Text = ""
Next intArrCounter
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !!!

Anzeige
AW: Textboxen füllen wenn leer
07.12.2007 23:22:00
Fred
Hallo Heiko
der Code liest sich gut. Schaffe es heute nicht mehr ihn zu probieren, melde mich morgen ob alles paletti ist.
Vielen Dank für Deine Mühe
Grüße Fred
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige