Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel Eingabemaske andere Datei öffnen u. bearbeiten
 27.08.2015 11:51:37 Gast12496
NotSolved

Ansicht des Beitrags:
Von:
Gast12496		 Datum:
27.08.2015 11:51:37		 Views:
3270		 Rating:
     
Antwort:
  Ja
Thema:
VBA Excel Eingabemaske andere Datei öffnen u. bearbeiten

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:
    

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
  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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Excel Eingabemaske andere Datei öffnen u. bearbeiten
 27.08.2015 11:51:37 Gast12496
NotSolved