Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Daten aus Textfeld in Excel Tabelle speichern
15.12.2006 08:39:29
Rambazambaral
Hallo
Diesmal geht es um folgendes, ich habe mir einen VBA Code für Excel für die Eingabe einer Artikelnummer und schließender Ausgabe anderer Daten die zu dieser Artikelnummer gehören in Textfeldern geschrieben. In diesen Textfeldern soll man die Daten aber auch ändern können. Wie kann ich einen "Speicher" Button so programmieren, das sich die Daten in die Excel Tabelle übertragen ?
https://www.herber.de/bbs/user/39003.xls
Das ist meine Datei
Jetzt weiss ich wie es theoretisch gehen müsste, aber leider fehlt mir das Programmbeispiel dazu, oder ein Codebeispiel. Da ich mich mit VBA (noch) nicht so gut auskenne kenn ich auch die ganzen Befehle noch nicht so gut.

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Textfeld in Excel Tabelle speichern
15.12.2006 10:02:36
Oberschlumpf
Hi
Prinzipiell geht das so (Bsp für Zelle A1 im aktiven Tabellenblatt):

Private Sub CommandButton1_Click()
ActiveSheet.Range("A1").Value = TextBox1.Text
End Sub

Klick im VBA-Editor doppelt auf deinen "Speicher"-Button, und du bist automatisch im oben genannten Private Sub. Da trägst du dann die Befehlszeilen wie im Bsp für alle Textboxen ein.
Konnte ich helfen?
Ciao
Thorsten
AW: Daten aus Textfeld in Excel Tabelle speichern
15.12.2006 10:03:14
Rudi
Hallo,
gestern warst du doch noch Doppel-Profi.
Prinzipiell so:

Private Sub CommandButton1_Click()
Dim rFind As Range
Set rFind = Sheets(1).Columns(2).Find(Me.txtArtNR)
If Not rFind Is Nothing Then
With rFind
.Offset(0, 2) = txtbez1
.Offset(0, 3) = Txtbez2
.Offset(0, 4) = txtbez3
.Offset(0, -1) = txtFRN
'etc
End With
End If
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Daten aus Textfeld in Excel Tabelle speichern
15.12.2006 14:31:33
Rambazambaral
Danke euch beiden .....
Ich habs mit dem Code vom Oberschlumpf gemacht weil ich durch den von Rudi nicht 100 % druchgeblickt habe, auch wenns ichs jetzt gerade auch mit diesem geschafft habe, doch der erste hat es für immer in den Code geschafft.
Da ich mich mit VBA kaum auskenne sind unbekannte Befehle immer so n Ding .....

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige