Daten aus geschlossener Datei auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen Dank für die sofortige Hilfestellung,
aber ich kenne mich mit VBA einfach zu wenig aus.
Ich bekomme es nur hin, wenn ich die Datei kurz öffne und wieder schließe und das ist nicht mein Ziel. Denn auf die "Freigegebene Datei = Ranking. xls" sollen mehrere User gleichzeitig Zugriff haben und ein User darf diese Datentabelle ändern; Wenn die Maske-Ranking.xls sich die Daten nach Auswahl Userform holt kommt zusätzlich immer die Abfrage Speicher JA / NEIN / Abbrechen und das ist für einen Anwendungs-User störend.
Bitte schaut "Euch" die beiden Dateien doch einfach mal an um mir zu helfen !
Vielen Dank für weitere Hilfe
mit freundlichen Grüßen
Frank
Hier die VBA-Anwendung die ich hierzu geschrieben habe:
(Das war schon sehr schwer für mich)


Private Sub cmdStart_Click()
On Error Resume Next  ' keine Fehlerbehandlung
Dim Book As Workbook
Dim Save As Workbook
Dim xs As Worksheet
Dim i As Integer
Dim StillCode As String
Dim StillCodeIdx As Integer
Dim Stilltext As String ' Lieferant
Dim Stilltext1 As String ' Maschine
Dim Stilltext2 As String ' Anzahl Farben
If txtLieferant = "" Then
MsgBox (" Achtung: Daten-Eingabe ist nicht vollständig! ")
End If
Stilltext = "?"
StillCode = txtLieferant.Text
Set Book = Workbooks.Open("c:\VBA-Smurfit\Ranking.xls")
Set xs = Application.Sheets.Item("Ranking")
If Not xs Is Nothing Then  ' falls es diese Datei und Tabellenblatt gibt
StillCodeIdx = 1    ' Anpassen Index
For i = 1 To 16000    ' Anpassen 16000  max. Anzahl Lieferantendatensatz
If xs.Cells(i, StillCodeIdx) = StillCode Then
Stilltext1 = xs.Cells(i, StillCodeIdx + 1) ' Hurra gefunden !!!
Stilltext2 = xs.Cells(i, StillCodeIdx + 2)
End If
Next i
End If
txtMaschine.Text = Stilltext1
txtFarben.Text = Stilltext2
Book.Save
Book.Close
End Sub

Private Sub cmdStart_Click() On Error Resume Next ' keine Fehlerbehandlung Dim Book As Workbook Dim Save As Workbook Dim xs As Worksheet Dim i As Integer Dim StillCode As String Dim StillCodeIdx As Integer Dim Stilltext As String ' Lieferant Dim Stilltext1 As String ' Maschine Dim Stilltext2 As String ' Anzahl Farben If txtLieferant = "" Then MsgBox (" Achtung: Daten-Eingabe ist nicht vollständig! ") End If Stilltext = "?" StillCode = txtLieferant.Text Set Book = Workbooks.Open("c:\VBA-Smurfit\Ranking.xls") Set xs = Application.Sheets.Item("Ranking") If Not xs Is Nothing Then ' falls es diese Datei und Tabellenblatt gibt StillCodeIdx = 1 ' Anpassen Index For i = 1 To 16000 ' Anpassen 16000 max. Anzahl Lieferantendatensatz If xs.Cells(i, StillCodeIdx) = StillCode Then Stilltext1 = xs.Cells(i, StillCodeIdx + 1) ' Hurra gefunden !!! Stilltext2 = xs.Cells(i, StillCodeIdx + 2) End If Next i End If txtMaschine.Text = Stilltext1 txtFarben.Text = Stilltext2 Book.Save Book.Close End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus geschlossener Datei auslesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus geschlossener Datei auslesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread