Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
daten ändern in textbox
03.12.2007 09:03:00
christian
GUTEN MORGEN IHR LIEBEN UND NETTEN EXPERTEN PROFIS!!!!!
ich habe eine kleine datenbank mit einer tabelle spalten A-G namens "Daten"
eine "userform2" mit
einer listbox (LIEST DATEN VON TABELLE "DATEN" VON A-G)
textboxen 1-7 (HIER KOMMEN DIE DATEN VON SPALE A-G ÜBER DIE LISTBOX1)
2 CommandButton (DER EINE ERSTELLT EINEN NEUEN DATENSATZ UND DER ZWEITE SOLLTE DIE DATEN ÄNDERN; TUT ER ABER NICHT RICHTIG NUR IN ERSTER ZELLE)
außerdem ändert er immer nur in der 5 zeile
es soll aber immer dort geändert werden wo der datensatz gerade ist BSP: zeile 5 oder zeile 100.
es soll halt eine eingabe maske sein wo mann daten eingeben und ändern kann.
diesesr erste code mit button1 dürfte der übeltäter sein er ist falsch alles andere andere funkt .

Private Sub CommandButton1_Click()
'Daten ändern
Sheets("Daten").Range("A5").Value = TextBox1.Text 'ukv
Sheets("Daten").Range("B5").Value = TextBox2.Text 'username
Sheets("Daten").Range("C5").Value = TextBox3.Text 'email
Sheets("Daten").Range("D5").Value = TextBox4.Text 'guthaben 1
Sheets("Daten").Range("E5").Value = TextBox5.Text 'datum
Sheets("Daten").Range("F5").Value = TextBox6.Text 'guthaben 1
Sheets("Daten").Range("G5").Value = TextBox7.Text 'notiz
End Sub



Private Sub CommandButton2_Click()
'Neuer Datensatz wird angelegt
Dim Zeile As Long
With Sheets("Daten")
Zeile = .Cells(65536, 1).End(xlUp).Row + 1
Cells(Zeile, 1) = TextBox1.Text
Cells(Zeile, 2) = TextBox2.Text
Cells(Zeile, 3) = TextBox3.Text
Cells(Zeile, 4) = TextBox4.Text
Cells(Zeile, 6) = TextBox5.Text
Cells(Zeile, 7) = TextBox7.Text
End With
End Sub


'DATEN PER LISTBOX KLICK IN TEXTBOXEN EINLESEN


Private Sub ListBox1_Change()
If ListBox1.Tag  "" Then Exit Sub
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
End Sub



Private Sub UserForm_Initialize()
'Daten bis zum Ende der Listbox zeigen
ListBox1.RowSource = "Daten!A4:G" & Sheets("Daten").Range("G65536").End(xlUp).Row
'LISTBOX1 BREITE.
With UserForm1.ListBox1
.ColumnCount = 7
.ColumnHeads = False
.ColumnWidths = "1,2cm; 5cm; 5cm; 2cm; 3cm; 3cm; 8cm;"
End With
End Sub


bitte um hilfe
euer
Christian neu (neu weil es mehrere gibt)

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: daten ändern in textbox
03.12.2007 11:09:57
Renee
Hi Christian,
So auf die Schnelle und ungetestet würde ich mal sagen, dass dies hier besser wäre:

Private Sub CommandButton1_Click()
'Daten ändern
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 1).Value = TextBox1.Text 'ukv
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 2).Value = TextBox2.Text 'username
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 3).Value = TextBox3.Text 'email
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 4).Value = TextBox4.Text 'guthaben 1
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 5).Value = TextBox5.Text 'datum
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 6).Value = TextBox6.Text 'guthaben 1
Sheets("Daten").Cells(Listbox1.ListIndex + 4, 7).Value = TextBox7.Text 'notiz
End Sub


GreetZ Renee

Anzeige
AW:offen daten ändern in textbox
03.12.2007 12:40:51
christian
servus renee
danke für deine hilfe, du hast dich dieser sache wenigsten angenommen.
aber es is genau das selbe wie vorher es funkt nicht.
bin schon am verzweifeln.
ich habe die mappe jetzt nachgebaut da im original vertrauliche dinge stehen.
vieleicht kanst du mir jetzt helfen oder jemand anderer-
gruss
christian neu
https://www.herber.de/bbs/user/48191.xls

AW: AW:offen daten ändern in textbox
03.12.2007 13:06:28
Renee
Hi Christian,
Diese 2 Routinen ersetzen:

Private Sub CommandButton99_Click()
'daten ändern von renee
ListBox28.Tag = "X"
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 1).Value = TextBox1.Text 'ukv
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 2).Value = TextBox2.Text 'username
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 3).Value = TextBox3.Text 'email
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 4).Value = TextBox4.Text 'guthaben 1
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 5).Value = TextBox5.Text 'datum
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 6).Value = TextBox6.Text 'guthaben 1
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 7).Value = TextBox7.Text 'notiz
ListBox28.Tag = ""
End Sub
Private Sub UserForm_Initialize()
With UserForm1.ListBox28
.ColumnCount = 7
.ColumnHeads = False
.ColumnWidths = "1.2cm; 5cm; 5cm; 2cm; 3cm; 3cm; 8cm;"
.RowSource = "Daten!A4:G" & Sheets("Daten").Range("A65536").End(xlUp).Row
End With
End Sub


GreetZ Renee

Anzeige
AW: AW:offen daten ändern in textbox
03.12.2007 13:20:00
christian
hi renee
du bist ein genie vielen vielen dank!
es funktioniert alles perfekt.
gruss aus wien
christian neu

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige