|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 geöffnete Datei verwenden |
08.11.2011 13:37:35 |
Rob |
|
|
|
08.11.2011 14:25:03 |
Till |
|
|
|
08.11.2011 14:25:11 |
Till |
|
|
|
08.11.2011 14:25:13 |
Till |
|
|
|
08.11.2011 14:33:56 |
Rob |
|
|
|
08.11.2011 22:03:16 |
Till |
|
|
Von:
Rob |
Datum:
08.11.2011 13:37:35 |
Views:
2750 |
Rating:
|
Antwort:
|
Thema:
geöffnete Datei verwenden |
|
Ich nochmal :)
Private Sub Button_Obsolete_Click()
'Variablen deklarieren
Dim rngBereich As Range
Dim sWert As String
Dim wb As Workbook
Dim wbZwei As Workbook
Dim ws As Worksheet
Dim wsZwei As Worksheet
Set wb = ThisWorkbook 'Workbook setzen
Set ws = wb.Sheets("Preisliste") 'Worksheet setzen
lSpalte = 1 'Spalte angeben, wo in Preisliste zu suchen ist
strFile = Application.GetOpenFilename 'Dateidialog
Set wbZwei = Workbooks.Open(Filename:=strFile) 'ausgewählte Datei öffnen
Set wsZwei = wbZwei.Sheets("OBSO") 'Worksheet setzen
wsZwei.Select
Ich muss diesen Code umschreiben, denn ich möchte keine neue Datei öffnen, sondern meine bereits geöffnete Datei nehmen.
Diese ist geöffnet, weil sie in einem Makro, welches zuvor ausgeführt wird, verwendet wurde.
Mit meinem neuen Makro muss ich weitere Änderungen durchführen.
Der Name von der Datei kann sich verändern, deswegen kann ich nicht mir Windows(xxx.xls).Activate verwenden.
Ich brauche einen Code, der mir sagt nimm von der bereits geöffneten Datei die Daten.
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
geöffnete Datei verwenden |
08.11.2011 13:37:35 |
Rob |
|
|
|
08.11.2011 14:25:03 |
Till |
|
|
|
08.11.2011 14:25:11 |
Till |
|
|
|
08.11.2011 14:25:13 |
Till |
|
|
|
08.11.2011 14:33:56 |
Rob |
|
|
|
08.11.2011 22:03:16 |
Till |
|
|