Office: Daten per Userform in externe Datei

Beverly · 17. Januar 2013

das war nicht die aktuelle Arbeitsmappe AuswertungTestSG1.xls und auch nicht der aktuelle Code, denn es fehlt die Auswahlmöglichkeit in der ComboBox im Tabellenblatt und die ComboBox2 im UserForm wird nicht richtig gefüllt.

Ändere meinen zulsetzt geposteten Code wie folgt:

Code:

Dim wksTab As Worksheet
Dim blnNeu As Boolean
Dim blnVorhanden As Boolean
Dim rngZeile As Range
Application.ScreenUpdating = False
Workbooks.Open "D:\Test\AuswertungTestSG1.xls" 'Quelldatei öffnen
With Workbooks("AuswertungTestSG1.xls")
With .Worksheets(strTabelle)
Set rngSpalte = .Rows(1).Find(ComboBox2, lookat:=xlWhole)
If Not rngSpalte Is Nothing Then
Set rngZeile = .Columns(1).Find(CDate(TextBox6), lookat:=xlWhole)
If Not rngZeile Is Nothing Then .Cells(rngZeile.Row, rngSpalte.Column) = CDbl(TextBox4)
blnVorhanden = True
End If
End With
If blnVorhanden = False Then
For Each wksTab In .Worksheets
If wksTab.Name strTabelle Then
Set rngSpalte = wksTab.Rows(1).Find(ComboBox2, lookat:=xlWhole)
If Not rngSpalte Is Nothing Then
Set rngZeile = wksTab.Columns(1).Find(CDate(TextBox6), lookat:=xlWhole)
If Not rngZeile Is Nothing Then wksTab.Cells(rngZeile.Row, rngSpalte.Column) = CDbl(TextBox4)
blnNeu = True
Exit For
End If
End If
Next wksTab
If blnNeu = False Then
With .Worksheets(strTabelle)
Set rngZeile = .Columns(1).Find(CDate(TextBox6), lookat:=xlWhole)
If Not rngZeile Is Nothing Then
.Cells(1, IIf(IsEmpty(.Cells(1, .Columns.Count)), .Cells(1, .Columns.Count).End(xlToLeft).Column, .Columns.Count) + 1) = ComboBox2
.Cells(rngZeile.Row, IIf(IsEmpty(.Cells(1, .Columns.Count)), .Cells(1, .Columns.Count).End(xlToLeft).Column, .Columns.Count)) = CDbl(TextBox4)
End If
End With
End If
End If
End With
Set rngZeile = Nothing
Set rngSpalte = Nothing
Set ws = Nothing

Workbooks("AuswertungTestSG1.xls").Close Savechanges:=True
Application.ScreenUpdating = True
Unload Me
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Daten per Userform in externe Datei

Daten per Userform in externe Datei

Daten per Userform in externe Datei

Daten per Userform in externe Datei - Similar Threads - Daten Userform externe

Daten aus UserForm in Tabellenblatt übertragen

Excel VBA Userform Daten aus Tabelle Auslesen "sverweis"

Daten per Userform in Datenbank einlesen

Daten in Userform einlesen, ändern und zurückschreiben

daten von userform in tabelle übertragen

UserForm Daten speichern. Registry oder externe Datei?

Gespeicherte Daten per Abfrage in Userform ausgeben