Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Werte gelöscht?

Werte gelöscht?
08.10.2003 19:34:44
Daniel
Hallo Freunde,
werden mit

Private Sub Worksheet_Calculate()
Dim index2 As Integer
For index2 = 1 To 217
UserForm6.Controls("TextBox" & CStr(index2)).Value = ""
Next
End Sub

alle Werte in der Textboxen gelöscht?
Danke
Daniel.
Wenn nicht wie werden die Werte auf null gesetzt?

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte gelöscht?
08.10.2003 19:40:06
K.Rola
Hallo,

das kannst du doch ganz leicht mit z.B. 3 textboxen ausprobieren.

Gruß K.Rola
AW: Werte gelöscht?
08.10.2003 19:45:35
Nepumuk
Hallo Daniel,
das passt schon so. Wenn du den Textboxen aber andere Namen gibs bzw. gegeben hast, dann mach es so:


Option Explicit
Private Sub Worksheet_Calculate()
Dim Myctrl As Control
For Each Myctrl In UserForm1.Controls
If TypeName(Myctrl) = "TextBox" Then Myctrl.Value = ""
Next
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
Danke Nepumuk..'ne Frage noch!
08.10.2003 20:03:34
Daniel
Du hast mir bei der Code sehr geholfen und habe ihn etwas erweitert.

Private Sub Worksheet_Calculate()
Dim index1 As Integer
For index1 = 1 To 31
UserForm6.Controls("TextBox" & CStr(index1)) = Cells(53, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 31)) = Cells(54, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 62)) = Cells(55, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 93)) = Cells(56, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 124)) = Cells(57, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 155)) = Cells(58, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 186)) = Cells(59, index1 + 3)
Next
End Sub


Der Code steht in der Tabelle "Okt" und wenn der UF aufrufe funkt richtig.
Wenn ich der UF von eine andere Tabelle aufrufe z.B. "Jan" zeigt mir die Werte von "Okt", obwohl der Code auch in der Tabelle "Jan" steht.
in diese Code ist kein Worksheet genannt, sollte eingentlich für alle Tabelle funkt (die Tabellen sin alle gleich). Was mache ich falsch?

Danke Daniel
Anzeige
AW: Danke Nepumuk..'ne Frage noch!
08.10.2003 20:11:05
Nepumuk
Hallo Daniel,
ich habe mich beim ersten mal schon gefragt, warum du das Zuweisen von Werten an bzw. das Löschen von Textboxen einer Userform mit dem Calculate - Ereignis eine Tabelle verbindest. Kannst du mir den Zusammenhang erklären?
Gruß
Nepumuk
AW: Danke Nepumuk..'ne Frage noch!
08.10.2003 20:32:00
Daniel
Hallo Nepumuk,
das ist eine gute Frage!!! Mit mein Wissenstad ist schwer zu antworten.
Aber ich versuche es!!!
Also, der UF ist in Showmodal=False. Ich trage in der Tabelle ein und der UF gibt mir
gleich eine Zusammenfassung der Besetzung (Dienstplan). Die Zelle zu lesen haben Formel un deswegen soll man mit Calculate-Ereignis arbeiten (wurde mir von jemand von Forum empfolhen, und funkt auch) damit die Werte immer aktualisiert werden (wenn ich richtig verstanden habe!!!).
In meine Ignoranz habe mir gedacht: wenn die Werte auf null setze und in eine anderen Tabelle der UF aufrufe wird's funkt.
In der Userform6 und in der Textboxen gibt's kein Hinweis auf eine bestimmte Tabelle!!
Jeder TextBox hat als Eigenschaften TAG eine Spalte zugewiesen, mehr nicht!
Sollte eigentlich funktionieren?
Gruß
Daniel
Anzeige
AW: Danke Nepumuk..'ne Frage noch!
08.10.2003 20:44:34
Nepumuk
Hallo Daniel,
mach es so:
In den Tabellen folgendes Makro:


Option Explicit
Private Sub Worksheet_Calculate()
loeschen
End Sub



In einem Normalen Modul:


Option Explicit
Public Sub loeschen()
Dim index1 As Integer
With ActiveSheet
For index1 = 1 To 31
UserForm6.Controls("TextBox" & CStr(index1)) = .Cells(53, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 31)) = .Cells(54, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 62)) = .Cells(55, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 93)) = .Cells(56, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 124)) = .Cells(57, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 155)) = .Cells(58, index1 + 3)
UserForm6.Controls("TextBox" & CStr(index1 + 186)) = .Cells(59, index1 + 3)
Next
End With
End Sub



Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk
Anzeige
AW: Danke Nepumuk..'ne Frage noch!
08.10.2003 21:01:20
Daniel
Hallo Nepumuk, du bist ein ASS!!
Danke. Es funft prima!!!!
Ciao
Daniel
AW: Danke Nepumuk..'ne Frage noch!
08.10.2003 21:05:48
Nepumuk
Hallo Daniel,
nun fällt mir gerade noch ein Hinweis ein. Beachte den Punkt vor dem Cells-Objekt!!!

.Cells(53, index1 + 3)



Gruß
Nepumuk
Muss der Punkt weg??
08.10.2003 21:09:11
Daniel
Hallo Nepumuk,
was ist damit?
Ciao Daniel
AW: Muss der Punkt weg??
08.10.2003 21:35:44
Nepumuk
Hallo Daniel,
nein, der ist wichtig, da er die Referenz zur With-Anweisug darstellt.
Gruß
Nepumuk
in Ordnung! Danke oT
08.10.2003 21:52:52
Daniel
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige