Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

.select in With funktioniert nicht

Forumthread: .select in With funktioniert nicht

.select in With funktioniert nicht
20.05.2019 21:54:27
Silke
Hallo,
Ich habe bislang diesen Codeschnipsel 
Sub Test()
Windows("Eingang.xls").Activate
Sheets("Daten").Select
End Sub
Ich möchte es aber in einen With .. End With Bereich umwandeln.
Wenn es so schreibe kommt die Fehlermeldung (Laufzeitfehler 1004)
Wenn ich das .selct weg lasse kommt die Fehlermeldung (Laufzeitfehler 9 - Außerhalb eines gültigen Bereichs)
Sub Test()
Dim wksEingang As Worksheet
Dim z
Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
With wksEingang
.Select
End With
End Sub
Kann mir jemand sagen wo der Fehler ist?
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: .select in With funktioniert nicht
21.05.2019 01:23:56
Piet
Hallo Silke
Dein Fehler liegt m.E. eindutig hier: - du deklarierst ein Worksheet, aber davor steht noch Workbook.
Dim wksEingang As Worksheet - deklariere es bitte mal so: - Dim wksEingang As Object
mfg Piet
AW: .select in With funktioniert nicht
21.05.2019 07:00:46
Luschi
Hallo Silke,
so klappt bei mir dieser getestete Code: 

Sub Test()
Dim wksEingang As Worksheet
Dim z
Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
With wksEingang
.Parent.Activate
.Select
End With
'am Schluß
Set wksEingang = Nothing
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
Vielen Dank .. funktioniert owT
21.05.2019 19:47:34
Silke
Bildschirm welchselt auf andere Datei
22.05.2019 21:51:31
Silke
Hallo,
ich habe den Vorschlag von Luschi eingefügt und getestet.
Aber nun wechselt der Bildschirm von der Seite von der das Makro gestartet wird auf die Datei Eingabe.xls
Habe vesucht diese Zeile einzufügen 

Application.ScreenUpdating = False

Aber die Ansicht wechselt dennoch.
Kann mir jemand helfen wie man immer nur die Ursprungsdatei sieht?
Liebe Grüße
Silke
Anzeige
AW: .select in With funktioniert nicht
23.05.2019 21:11:42
Piet
Hallo Silke
die Antwort ist im Code von Luschi, man muss sie nur Sehen! Probier bitte mal den unteren Teil aus!
Sollte es damit klappen bitte Thread schliessen, Haeckchen Nicht setzen.
mfg Piet
'am Schluß
Set wksEingang = Nothing,
Workbooks("Eingang.xls").Activate
End Sub
Anzeige
AW: .select in With funktioniert nicht
24.05.2019 00:25:35
Silke
Hallo, nein .... das funktioniert nicht.
Wenn ich es so anwende wechselt der Bildschim dennoch zu der anderen Seite und wieder zurück.
AW: .select in With funktioniert nicht
24.05.2019 05:50:55
Hajo_Zi
warum selct? Warum With für eine Aktion
Ohne With
wksEingang.Range("A1")=123

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: .select in With funktioniert nicht
26.05.2019 12:37:48
Silke
Hallo
vielen Dank für eure Tipps .. das hat mich echt weitergebracht.
An zwei Stellen hänge ich aber noch.
Wie kann ich folgendes ohne die die Dateien zu aktivieren durchführen
Dim wksEingang As Worksheet
Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
Windows("Eingang.xls").Activate
Sheets("Daten").Select
RechnungsMax = Application.WorksheetFunction.Max(Range("B:B")) + 1
und 
Dim wksEingang As Worksheet
Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
Windows("Eingang.xls").Activate
Sheets("Daten").Select
If Range("Wert1") = "" Then
Liebe Grüße Silke
Anzeige
AW: .select in With funktioniert nicht
26.05.2019 12:59:30
Hajo_Zi
RechnungsMax = Application.WorksheetFunction.Max(Sheets("Daten").Range("B:B")) + 1
If Workbooks "Eingang.xls").Sheets("Daten").Range("Wert1") = "" Then
Gruß Hajo
AW: .select in With funktioniert nicht
26.05.2019 13:06:11
Daniel
Hi
wenn du Zellebereiche (Range, Cells, Rows, Columns) ansprechen willst, ohne die jeweilige Mappe und Tabellenblatt vorher zu selektieren, musst du Workbook und Worksheet immer davor angeben:
also:
RechnungsMax = Application.WorksheetFunction.Max(Workbooks("Eingang.xls").Worksheets("Daten").Range("B:B")) + 1
das funktioniert auch mit entsprechenden Objektvariablen: 
Dim wksEingang As Worksheet
Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
RechnungsMax = Application.WorksheetFunction.Max(wksEingang.Range("B:B")) + 1
oder in der With-Klammer, achte hier auf den Punkt vor dem Objekt: 
With Workbooks("Eingang.xls")
With .Worksheets("Daten")
RechnungsMax = Application.WorksheetFunction.Max(.Range("B:B")) + 1
end with
end with

das gilt auch, wenn der Zellbezug ein Name ist.
Wenn man sich nicht auf das aktive Tabellenblatt bezieht, muss man dann auch Workbook und Worksheet angeben: 
If Workbooks("Eingang.xls").Worksheets("Daten").Range("Wert1") = "" Then

Set wksEingang = Workbooks("Eingang.xls").Worksheets("Daten")
If wksEingang.Range("Wert1") = "" Then

Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Anzeige
Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Anzeige
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
ich habe ein Problem mit meiner Userform. Diese enthält eine Combobox "Hubraum" und einen CommandButton "Speichern". Die Eingabewerte in der Combobox möchte ich mit folgendem Code auf eine Nachkommastelle runden:
Private Sub cboHubraum_Exit(ByVal Cancel As MSForms....
14.01.2009 08:53:38
Thread-ID: 1039450
23 Beiträge
Anzeige
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
Ich habe folgendes Problem: Ich habe auf einer Userform ein Multipage liegen, auf deren Seiten sich wiederum diverse Text- und Comboboxen befinden. Unterhalb der Multipage liegen auch noch einige Commandbuttons.
Nun möchte ich beim Verlassen einer Combobox über cboHe...
20.01.2009 15:44:28
Thread-ID: 1041874
5 Beiträge
Code funktioniert nicht in Excel 2000
marc

Hallo zusammen
Leider funktioniert folgender "Sortierungscode nicht" in Excel 2000 ,
weiss jemand eine Lösung?
Public Sub Vereinsmeisterschaft_A_Rangliste_sortieren() Sheets("Vereinsmeisterschaft_A").Select Range("B4:I53").Select Selection.Sort Key1:=Range("I4"), Order1:=xlDescend...
26.01.2009 13:32:17
Thread-ID: 1043880
2 Beiträge
Anzeige
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
ComboBox in UF funktioniert nicht!?
Timmy

Liebe Excler,
anbei meine Problem-Datei ;-)
ich will einen Namen in der UF auswaehlen, sowie das Datum dazu. Das klappt super, jedoch habe ich auch noch eine ComboBox, in welcher "noch offen" steht. Wenn ich diese auswaehle, fuellt excel trotzdem mit einem Datum aus, obwohl ich will, da...
17.02.2009 15:27:00
Thread-ID: 1051519
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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