Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

With Workbook..Worksheets ! Brauche mal eure Hilfe

Forumthread: With Workbook..Worksheets ! Brauche mal eure Hilfe

With Workbook..Worksheets ! Brauche mal eure Hilfe
01.01.2014 22:04:45
Thorben
Hallo und frohes neues Jahr 2014 liebe Forumfreunde,
und gleich mal wieder mit einen kleinen Problemchen...:
meine Sub:
Sub Keine()
Dim arr, a
With Tabelle10 'so gehts
arr = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
arr = WorksheetFunction.Transpose(arr)
For a = LBound(arr) To UBound(arr)
arr(a) = CStr(arr(a))
Next
With Tabelle2
If .FilterMode Then .ShowAllData
.Range("A1").AutoFilter Field:=9, Criteria1:=arr, Operator:=xlFilterValues
End With
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
Range("A1").Select
End Sub
Jetzt möchte ich statt "With Tabelle10" gerne auf eine andere geöffnetet Datei zugreifen und versuche es so:
With Workbooks(Datentabellen.xlsx).Worksheets("Tabelle5").Activate
Das funzt aber nicht (das sollte doch aber klappen, die Datei Datentabellen ist ja offen!?)
Kann mir jemand sagen wie es geht!?
Vielen Dank schon einmal
MfG
Thorben

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
probier Windows(DateiName) wenn wirkl. offen
01.01.2014 22:09:45
Matthias
Hallo
Gesundes neues Jahr ach an Dich.
Versuchs mit Windows("Datentabellen.xlsx").Activate
und erst dann das Blatt aktivieren.
Gruß Matthias

ohne .Activate!
01.01.2014 22:35:31
Rudi
Hallo,
 With Workbooks(Datentabellen.xlsx).Worksheets("Tabelle5") 'so gehts
arr = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
Gruß
Rudi

Anzeige
AW: ohne .Activate! Fehler 424 Objekt erforderlich
02.01.2014 01:44:43
Thorben
Hi ihr beiden,
erstmal vielen Dank aber ich bekommen bei beiden Möglichkeiten den Fehler 424
Objekt erforderlich!!!
With Workbooks(Datentabellen.xlsx).Worksheets("Tabelle5") wird gelb markiert
With Windows ebenso...
es scheint nicht zu wollen...
Irgendwelche Ideen?
MfG
Thorben

Anzeige
Workbooks("Datentabellen.xlsx")
02.01.2014 03:25:27
Matthias
Hallo
With Windows ... hab ich ja auch nicht geschrieben.
Ich dachte erst Du willst zur anderen Datei wechseln.
Versuchs mal mit Rudis Vorschlag so
&nbsp With Workbooks("Datentabellen.xlsx").Worksheets("Tabelle5")
einfach nur
&nbsp With Workbooks(Datentabellen.xlsx).Worksheets("Tabelle5")
da bekomme ich auch einen Fehler.
Gruß Matthias

Anzeige
"Danke !"
02.01.2014 08:02:36
Thorben
Hallo Matthias,
...uhhhh man, wer lesen kann...
hab die Bommels "" vergessen...!
Danke und Gruß
Thorben
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige