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:
2325
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:
    

        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:

 
 

  • 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