Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Loop

Loop
03.10.2003 10:47:02
Pippo
Hallo Exceliana,
Gut Morgen.

Ich habe eine Frage:
mit
Private Sub UserForm_Activate()
TextBox1.Value = Range("d53").Value
lese der Wert von D53 aus.
Ich möchte fur 31 Textboxen und für die Zellen von D53 bis AH53 der Value zurück
haben.
Statt immer wieder ...Textbox2.Val...Textbox3.Val... bis 31 zu schreiben,
möchte ein Loop haben: ich kriege aber nicht hin!!!
Wie geht das?
Danke
Pippo

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Loop
03.10.2003 10:56:53
Hajo_Zi
Hallo Pippo

Du hast ja in den letzten Tagen einige Beiträg geschrieben. Ich hoffe mal das Du Deinen level ein wenig zu niedrig angegeben hast.


Private Sub CMD_einlesen_Click()
'   erstellt von Hajo.Ziplies@web.de 03.10.03
' http://home.media-n.de/ziplies/
'   Einlesen der Textboxen aus de Tabelle
'   auf der Eigenschaft Tag der Textbox steht die Spalte in der die Textbox geschrieben werden soll
'   Der Datensatz wird immer aus der letzte Zeile gelesen
Dim ObCb As Object
Dim LoLetzte As Long
With Worksheets("Tabelle2")
LoLetzte = 65536
If .Range("A65536") = "" Then LoLetzte = .Range("A65536").End(xlUp).Row
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then ObCb.Value = .Cells(LoLetzte, ObCb.Tag)
Next ObCb
End With
End Sub


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Loop
03.10.2003 11:19:55
Pippo
Danke Hajo,
ich wird mein Level niedrig stellen. Hast Du recht.
Um das ganze richtig zu funzionieren brauch ich noch etwas:
Eine Code die alle Zellen rechnet, statt

Private Sub Worksheet_Calculate()
UserForm6.TextBox1 = Range("d53")
UserForm6.TextBox2 = Range("e53") un so weiter bis Ah53
End Sub

ich danke dir
Pippo
AW: Loop
03.10.2003 11:23:03
Hajo_Zi
Hallo Pippo

Du meinst nicht rechnen sondern Textbox in Zelle schreiben. Dazu brauchst Du nur die Zeile

If TypeName(ObCb) = "TextBox" Then ObCb.Value = .Cells(LoLetzte, ObCb.Tag)

ändern in

If TypeName(ObCb) = "TextBox" Then .Cells(LoLetzte, ObCb.Tag)=ObCb.Value

Schaue auch mal auf meine Homepage da ist der gesamte Code.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Loop
03.10.2003 11:33:22
pippo
Haio, ich meine genau was ich geschrieben habe:

aber statt immer zu schreiben

Private Sub Worksheet_Calculate()
UserForm6.TextBox1 = Range("d53")
UserForm6.TextBox2 = Range("e53") un so weiter bis Ah53
U..........

ein Loop mit Textboxen (1 bis 31) und Range(von D53 bis AH53)


ciao
Pippo
AW: Loop
03.10.2003 11:36:48
Hajo_Zi
Hallo Pippo

ich habe es Falsch gesehen ich dachte Du willst zurückschreiben. Schreibe doch an die Stelle mein Code aus dem ersten Posting. Natürlich ohne 

Sub und End Sub
.

Ansonsten lade die Datei mal hoch.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige
AW: Loop
03.10.2003 11:55:05
pippo
Hallo Hajo,
Dein Code steht in der Userform
Der Calculate in der Tabelle
der Calculate ist erforderlich, da die Zellen ein Formel haben.
ich möchte ein Loop die mir erspart jeder Zelle zu rechnen:

UserForm6.TextBox1 = Range("d53")
UserForm6.TextBox2 = Range("e53") un so weiter bis Ah53
U..........
ciao
Pippo
AW: Loop
03.10.2003 11:59:51
Hajo_Zi
Hallo Pippo

irgendwie verstehen wir uns Falsch. Rechnen ist bei mir +;-;*;/; usw. das sehe ich in Deinen Zeilen nicht.

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige