Zellinhalt in Textbox einlesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: Zellinhalt in Textbox einlesen
von: Max K.
Geschrieben am: 25.03.2005 14:53:22
Hallo,
ich habe auf der Herber-CD ein Makro gefunden, welches ich in einer meiner
Tabellen gut brauchen kann: es schreibt die Daten aus 4 Textboxen in ein
anderes Tabellenblatt.
Zur späteren Kontrolle der Einträge würde ich die Daten gerne wieder zurück
lesen lassen, habe aber dafür noch nichts gefunden.
Die Userform habe ich soweit schon vorbereitet.
Falls jemand ein Makro kennt, welches in eine Textbox einliest (und in dem
auch Laien wie mir klar wird wo die Bezüge eingetragen werden)wäre es
nett das mal zu posten.
Die von mir vorbereitete Datei :
https://www.herber.de/bbs/user/20156.xls
Danke schonmal für eure Mühe!
Max

Bild

Betrifft: AW: Zellinhalt in Textbox einlesen
von: Hajo_Zi
Geschrieben am: 25.03.2005 14:56:19
Hallo Max,
ändere diesen Teil

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      Controls("TextBox" & iCounter).Text = Worksheets("Tabelle3").Cells(iCounter, 1)
   Next iCounter
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Zellinhalt in Textbox einlesen(erledigt)
von: Max K.
Geschrieben am: 25.03.2005 15:09:52
Hallo Hajo,
vielen Dank für die Hilfe und noch ein paar schöne Feiertage!
Die Daten werden zwar wieder in das Eingabefeld zurück gelesen, aber damit spare
ich mir in der Userform die Kontrollseite.
Gruß
Max
Bild

Betrifft: Zellinhalt in Textbox einlesen (Hajo bitte..)
von: Max K.
Geschrieben am: 25.03.2005 16:28:00
Hallo,
nachdem ich mein "Kunstwerk" in eine bestehende Tabelle übertragen habe, wollte ich
die angesprochenen Zellen anpassen. Bei den Textboxen funktioniert das auch gut, weil
man da den Blattnamen und die Zellen angeben kann:
Worksheets("Tabelle3").Cells(203, 4).Value = TextBox1.Text
Änderungen in diesem Teil:

Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   For iCounter = 1 To 4
      Controls("TextBox" & iCounter).Text = Worksheets("Tabelle3").Cells(iCounter, 1)
   Next iCounter
End Sub

führen aber leider dazu, dass statt der Userform nur ein Fehler angezeigt wird.
Wie muß ich den Teil ändern, wenn aus Spalte "D" die Zellen 203-206 zurück gelesen
werden sollen?
Danke nochmals!
Gruß
Max
Bild

Betrifft: AW: Zellinhalt in Textbox einlesen (Hajo bitte..)
von: Hajo_Zi
Geschrieben am: 25.03.2005 16:32:14
Hallo Max
Spalte D =4
Icounter beginnt bei 1 Du willst beginnen bei 203, Das düfte es schon gewesen sein
Worksheets("Tabelle3").Cells(iCounter+202, 4)
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: Zellinhalt in Textbox (ganz erledigt ;-))
von: Max K.
Geschrieben am: 25.03.2005 16:40:46
Hallo Hajo,
das funktioniert nicht nur gut, das klappt suuuuupiiiiiii!
Danke! ;-))
Gruß
Max
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalt in Textbox einlesen"