Office: Daten per Userform in externe Datei

Hallo zusammen,

Ich habe eine Userform mit einer Combobox und einem Textfeld.

Die Combobox wird mit Daten(Namen wie Meier, Schulze, Lehmann) aus einer externen Datei.xls gefüllt. Im Textfeld steht ein %Wert.

Jetzt möchte ich das der %Wert im Textfeld in die Externe Datei übertragen wird und dem jeweiligem Namen zugeordnet.

Falls sich jetzt einer fragt warum nicht gleich die Userform in der externen Datei... das ist nicht gewünscht.

Danke im Voraus für Lösungsvorschläge

LG mobiman

:)

 

Hi,

versuche es mal nach diesem Prinzip (ungetestet):

Code:

Gesucht wird in Spalte A und eignetragen in Spalte B.

 

Super Beverly,

mit etwas umbasteln funktioniert es fast. Hab nur noch ein Problem mit dem Wert aus meiner Textbox(Textbox4).

If Not rngZelle Is Nothing Then .Cells(rngZelle.Row, 2) = CDbl(TextBox)

Die Textboxen stehen in einer UserForm. Nehme ich einen direkten Wert aus irgendeiner Zelle, funktioniert die Zuordnung in die externe Tabelle. Aber wie gesagt ich beziehe den Wert aus einer Textbox die sich in einer Userform befindet...

hier der letzte Teil meiner Userform:

Dim lastrow As Integer
Dim ws As Worksheet
Dim exapp As New Application
Dim rngZelle As Range
If Range("L4") = ("") Then


End If

Set exapp = New Excel.Application
exapp.Visible = False
exapp.Workbooks.Open "X:\Produktivität\AuswertungTestSG1.xls"
Set ws = exapp.Worksheets("SG1")

Set rngZelle = exapp.Worksheets("SG1").Columns(1).Find(ComboBox2, lookat:=xlWhole)
If Not rngZelle Is Nothing Then exapp.Worksheets("SG1").Cells(rngZelle.Row, 3) = CDbl(TextBox)
Set rngZelle = Nothing



Set ws = Nothing


exapp.Workbooks("AuswertungTestSG1.xls").Close Savechanges:=True
exapp.Quit


...

 

aus deinem Beitrag kann ich leider nicht entnehmen WAS nicht funktioniert.

Den Namen der TextBox musst du natürlich an deine Gegebenheiten anpassen also CDbl(TextBox4). Eventuell musst du vorher noch eine Prüfung einbauen, ob der Inhalt der TextBox tatsächlich numerisch und die TextBox nicht leer ist.

 

ok funktioniert... hatte weiter oben im code noch nen kleinen Fehler der sich erst jetzt bemerkbar gemacht hat...

TextBox4 = ""

Danke
*wink.gif*

 

Hallo Beverly,

Ich muss doch nochmal um Hilfe bitten...

Dieser Code funktioniert:

 

interpretiere ich das richtig. Der Wert wir in Zeile 12.350 gefunden also schreibe den Wert
in Spalte B Zeile 12.350 und in Spalte 12.350 in Zeile 1?

 

Danke für die schnelle Antwort(Frage) Hajo...

 

Bei mir geht Spalte B von B1 bis B1.048.576 nicht bis Spalte AG.
Warum Spalte M warum Zeile 12.350 es sollte doch in die erste Zeile eingetragen werden.

 

evtl. hilft der Anhang weiter.

 

Hi,

verstehe ich das richtig: du willst zuerst in Zeile 1 die Spaltennummer finden, in welcher dann eingetragen werden soll? Dann musst du eine 2. Range-Variable verwenden und nach dem selben Prinzip zuerst die Spalte ermitteln. Ich habe e sjetzt nicht getestet, sollte aber in etwa so funktioineren:

Code:

 

Wie immer klasse Beverly ;-)

genau das was ich suchte, allerdings kommt noch ein Laufzeitfehler'94': "Unzulässige Verwendung von Null"

Dim ws As Worksheet
Dim exapp As New Application
Dim rngZelle As Range
Dim rngSpalte As Range
If Range("L4") = ("") Then


End If

Set exapp = New Excel.Application 'Neue Excel Instanz eröffnen
exapp.Visible = False 'Excel bleibt unsichtbar
exapp.Workbooks.Open "C:\Dokumente und Einstellungen\mcm1\Eigene Dateien\lars\AuswertungTestSG1.xls" 'Quelldatei öffnen
Set ws = exapp.Worksheets("SG1") 'Quelltabelle angeben...

Set rngZelle = exapp.Worksheets("SG1").Columns(1).Find(ComboBox2, lookat:=xlWhole)
Set rngSpalte = exapp.Worksheets("SG1").Rows(1).Find(CDbl(ListBox1), lookat:=xlWhole)


If Not rngZelle Is Nothing And Not rngSpalte Is Nothing Then exapp.Worksheets("SG1").Cells(rngZelle.Row, rngSpalte.Column) = CDbl(TextBox4)
Set rngZelle = Nothing
Set rngSpalte = Nothing




Set ws = Nothing


exapp.Workbooks("AuswertungTestSG1.xls").Close Savechanges:=True
exapp.Quit

 

Hi,

ist die ListBox vielleicht leer, also kein Wert ausgewählt? Dann musst du das vorher noch prüfen.

 

so wie es aussieht könnte man davon ausgehen. Aber der Listboxwert in der Userform ist gegeben.

könnte es evtl auch an der Formatierung liegen?

Das Datum wird Mittels eines Kalendermoduls in der Quelldatei in "C2" geschrieben. Nun habe ich in die UserForm eingebaut:

ListBox1.AddItem Range("C2").Value

funktioniert auch also wird auch in der ListBox der Userform angezeigt...

 

kann ich leider nicht prüfen wo die Ursache liegt, da mir die beiden Arbeitsmappen nicht vorliegen.