VB Exeltabelle aendern!

Prasman · 03.09.2003, 12:35

Ich bekomme in einem VB Programm daten aus einer Exel Liste.
Jetzt mochete ich aber auch ueber dem VB Programm die Daten in der Liste aendern.
Kann mir jemand helfen? Braeuchte das sehr dringend

hab sehr wenig grund wissen in vb

reemrev · 03.09.2003, 13:22

http://www.vbarchiv.net/home/willkommen.php

gehe auf suchen und gib "Excel" ein, lass aber in allen Rubriken suchen.
Vielleicht http://www.vbarchiv.net/archiv/tipp_details.php?pid=466

Prasman · 03.09.2003, 13:31

Danke auf der page war ich bereits! nichts brauchbares gefunden.

Prasman · 03.09.2003, 13:35

Also ich hol mir die Daten aus einer csv Datei in ein Text Feld.
So nun will ich diese Daten aber auch veraendern koennen und in die .csv Datei zurueckspeichern!

Wie

?

reemrev · 03.09.2003, 14:38

Da auch schon gesucht ?

http://www.activevb.de/tipps/vb6tipps/tipp0050.html

Prasman · 03.09.2003, 15:56

@reemrev
Vielen Dank fuer deine Hilfe! Das ist genau was ich will, jedoch kann ich Excel.Range nicht verwenden weil ich nach den Zugnumern mir die Daten herausfiltern lasse.
In der List box wird mir die Erste Spalte der Tabelle wiedergegeben - dazu werden mir dann die Datem mittels arrays herausgefiltert.

Jetzt moechte ich in den Textfeldern einfach neue Daten eingeben und dann change druecken -> womit in die Excel Datei der neue Wert geschrieben wird.

Siehe Anhang!

Ich hoffe du kanst mir weiterhelfen

flinx · 03.09.2003, 16:12

Zitat:

Jetzt moechte ich in den Textfeldern einfach neue Daten eingeben und dann change druecken -> womit in die Excel Datei der neue Wert geschrieben wird.

Ich versteh das Problem nicht ganz. Das funktioniert IMHO eh automatisch, oder?

Zitat:

Wenn ein Textfeld-Steuerelement an eine Datenquelle gebunden ist, führt eine Änderung des Inhalts des Textfeld-Steuerelements dazu, dass der Wert in der gebundenen Datenquelle ebenfalls geändert wird.

reemrev · 03.09.2003, 16:56

Über den Listindex besteht die Möglichkeit auf die entsprechende
Excelzeile wieder zuzugreifen (wenn ich das richtig verstanden habe)

Verwende eine Variable zB:

dim reihe as string
Wenn du List1 anklickst dann reihe = cstr(list1.listindex)

(zu beachten: beginnt bei 0, das heißt, der erste Eintrag hat den Index Null, eventuell beim Anklicken noch 1 addieren)

...Range("A" & reihe)=text1.text

oder du kannst damit aufs array weisen

dim reihe as long
array(reihe,1)= text1.text
array(reihe,2)= text2.text

Möglich wäre auch ein Grid zu verwenden.

Prasman · 04.09.2003, 12:38

Hab das jetzt so - funktioniert aber ueberhaupt nuesse!
Bitte um Hilfe

' schreibt Daten in die Textfelder
Public Sub setListData(index As Integer)
Me.txtArrive = arrData(index)(1)
Me.txtChanges = arrData(index)(2)
Me.txtIBS = arrData(index)(3)
Me.txtWork = arrData(index)(4)
Me.txtStatic = arrData(index)(5)
Me.txtDynamic = arrData(index)(6)
Me.txtCustomer = arrData(index)(7)
Me.txtKm = arrData(index)(8)

End Sub

reemrev · 04.09.2003, 12:57

Wenn arrData ein 2dimensionales Array ist dann:
arrData(index,1) statt arrData(index)(1)

03.09.2003, 12:35	#1
Prasman Inventar Registriert seit: 29.05.2003 Beiträge: 1.727	VB Exeltabelle aendern! Ich bekomme in einem VB Programm daten aus einer Exel Liste. Jetzt mochete ich aber auch ueber dem VB Programm die Daten in der Liste aendern. Kann mir jemand helfen? Braeuchte das sehr dringend hab sehr wenig grund wissen in vb ____________________________________ mfg Prasman "I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977

03.09.2003, 13:31	#3
Prasman Inventar Registriert seit: 29.05.2003 Beiträge: 1.727	Danke auf der page war ich bereits! nichts brauchbares gefunden. ____________________________________ mfg Prasman "I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977

03.09.2003, 13:35	#4
Prasman Inventar Registriert seit: 29.05.2003 Beiträge: 1.727	Also ich hol mir die Daten aus einer csv Datei in ein Text Feld. So nun will ich diese Daten aber auch veraendern koennen und in die .csv Datei zurueckspeichern! Wie ? ____________________________________ mfg Prasman "I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977

03.09.2003, 15:56	#6
Prasman Inventar Registriert seit: 29.05.2003 Beiträge: 1.727	Danke! @reemrev Vielen Dank fuer deine Hilfe! Das ist genau was ich will, jedoch kann ich Excel.Range nicht verwenden weil ich nach den Zugnumern mir die Daten herausfiltern lasse. In der List box wird mir die Erste Spalte der Tabelle wiedergegeben - dazu werden mir dann die Datem mittels arrays herausgefiltert. Jetzt moechte ich in den Textfeldern einfach neue Daten eingeben und dann change druecken -> womit in die Excel Datei der neue Wert geschrieben wird. Siehe Anhang! Ich hoffe du kanst mir weiterhelfen ____________________________________ mfg Prasman "I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977

04.09.2003, 12:38	#9
Prasman Inventar Registriert seit: 29.05.2003 Beiträge: 1.727	Hab das jetzt so - funktioniert aber ueberhaupt nuesse! Bitte um Hilfe ' schreibt Daten in die Textfelder Public Sub setListData(index As Integer) Me.txtArrive = arrData(index)(1) Me.txtChanges = arrData(index)(2) Me.txtIBS = arrData(index)(3) Me.txtWork = arrData(index)(4) Me.txtStatic = arrData(index)(5) Me.txtDynamic = arrData(index)(6) Me.txtCustomer = arrData(index)(7) Me.txtKm = arrData(index)(8) End Sub ____________________________________ mfg Prasman "I can look at a chick who's a little out of shape and if she turns me on, I won't hesitate to date her. If she's a good fuck, she can weigh 150 pounds, I don't care."- Arnold Schwarzenegger 1977

03.09.2003, 13:22	#2
reemrev Inventar Registriert seit: 31.01.2000 Beiträge: 1.706 Mein Computer	http://www.vbarchiv.net/home/willkommen.php gehe auf suchen und gib "Excel" ein, lass aber in allen Rubriken suchen. Vielleicht http://www.vbarchiv.net/archiv/tipp_details.php?pid=466

03.09.2003, 14:38	#5
reemrev Inventar Registriert seit: 31.01.2000 Beiträge: 1.706 Mein Computer	Da auch schon gesucht ? http://www.activevb.de/tipps/vb6tipps/tipp0050.html

03.09.2003, 16:56	#8
reemrev Inventar Registriert seit: 31.01.2000 Beiträge: 1.706 Mein Computer	Über den Listindex besteht die Möglichkeit auf die entsprechende Excelzeile wieder zuzugreifen (wenn ich das richtig verstanden habe) Verwende eine Variable zB: dim reihe as string Wenn du List1 anklickst dann reihe = cstr(list1.listindex) (zu beachten: beginnt bei 0, das heißt, der erste Eintrag hat den Index Null, eventuell beim Anklicken noch 1 addieren) ...Range("A" & reihe)=text1.text oder du kannst damit aufs array weisen dim reihe as long array(reihe,1)= text1.text array(reihe,2)= text2.text Möglich wäre auch ein Grid zu verwenden.

04.09.2003, 12:57	#10
reemrev Inventar Registriert seit: 31.01.2000 Beiträge: 1.706 Mein Computer	Wenn arrData ein 2dimensionales Array ist dann: arrData(index,1) statt arrData(index)(1)

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)