Thema Datum  Von Nutzer Rating
Antwort
19.10.2020 08:33:56 Michael
NotSolved
19.10.2020 08:45:36 Mase
NotSolved
19.10.2020 08:55:00 Gast41075
NotSolved
19.10.2020 09:09:51 Mase
NotSolved
19.10.2020 09:37:17 Michael
NotSolved
19.10.2020 11:01:56 Gast21788
NotSolved
19.10.2020 11:43:42 Mase
NotSolved
19.10.2020 13:08:17 Gast7133
NotSolved
19.10.2020 13:11:00 Gast29911
NotSolved
19.10.2020 13:17:56 Gast97474
NotSolved
Rot Daten aus anderer Datei übernehmen
 19.10.2020 13:40:02 Mase
NotSolved
20.10.2020 13:31:00 Gast80126
NotSolved
20.10.2020 14:05:21 Mase
NotSolved
20.10.2020 15:12:23 Gast43734
NotSolved
21.10.2020 08:09:49 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
19.10.2020 13:40:02		 Views:
992		 Rating:
     
Antwort:
  Ja
Thema:
Daten aus anderer Datei übernehmen

Du solltest stets mit Objektvariablen arbeiten.

Schau Dir mal die geänderte CommandButton1_Click() Prozedur an:

(By the way - verwende aussagekräftige Namen; sonst wirst ja kirre)

 

?
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
Sub CommandButton1_click()
 
    '*** Deklarationsteil
    Dim finden     As Excel.Range
    Dim wkbB       As Excel.Workbook
     
    'Mappe referenzieren; wenn geschlossen, wird geöffnet; wenn bereits offen, wird referenziert
    Set wkbB = GetObject("C:\Users\****\****\B.xlsx")
     
    '*** Die Objektvariable >>finden<< liefert bei Fund nun eine Referenz zu B.xlsx
    Set finden = wkbB.Worksheets("Daten").Range("A2:F10").Find(what:=Bestellnummer)
    
    '*** Wertzuweisung an UserForm - QMDGS
    With Me
        .Wafernummer.Text = finden.Offset(, 2).Text
        .Waferlosnummer.Text = finden.Offset(, 1).Text
        .ComboBox1.Text = finden.Offset(, 3).Text
        .ComboBox2.Text = finden.Offset(, 4).Text
    End With
    '*** B.xlsx wieder schließen
    wkbB.Close Savechanges:=False
 
    '*** aufräumen
    Set finden = Nothing
    Set wkbB = Nothing
End Sub

 

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
19.10.2020 08:33:56 Michael
NotSolved
19.10.2020 08:45:36 Mase
NotSolved
19.10.2020 08:55:00 Gast41075
NotSolved
19.10.2020 09:09:51 Mase
NotSolved
19.10.2020 09:37:17 Michael
NotSolved
19.10.2020 11:01:56 Gast21788
NotSolved
19.10.2020 11:43:42 Mase
NotSolved
19.10.2020 13:08:17 Gast7133
NotSolved
19.10.2020 13:11:00 Gast29911
NotSolved
19.10.2020 13:17:56 Gast97474
NotSolved
Rot Daten aus anderer Datei übernehmen
 19.10.2020 13:40:02 Mase
NotSolved
20.10.2020 13:31:00 Gast80126
NotSolved
20.10.2020 14:05:21 Mase
NotSolved
20.10.2020 15:12:23 Gast43734
NotSolved
21.10.2020 08:09:49 Mase
NotSolved