|
Hallo,
folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:
Private Sub CommandButton2_Click()
Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
Dim suchen As Excel.Range
With Tabelle1
Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not suchen Is Nothing Then
TextBox2.Text = .Cells(suchen.Row, "B").Value
TextBox3.Text = .Cells(suchen.Row, "C").Value
TextBox4.Text = .Cells(suchen.Row, "D").Value
TextBox5.Text = .Cells(suchen.Row, "E").Value
ListBox1.AddItem .Cells(suchen.Row, "A").Value
Else
Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
ListBox1.Clear
TextBox1.Text = ""
End If
End With
End Sub
Hoffe ihr könnt mir helfen,
LG
|