Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Public ws As Worksheet

Forumthread: Public ws As Worksheet

Public ws As Worksheet
20.04.2009 13:43:38
Edie
Hallo zuzsammen,
habe ein Tabellenblatt im Modul als Public ws As Worksheet dimensioniert
damit auf das Blatt von mehreren UF zugegriffen werden kann.
Wenn ich aber Set ws = Worksheets("Tabelle1") in das Modul so schreibe:
Public ws As Worksheet
Set ws = Worksheets("Tabelle1")
funktioniert es leider nicht d.h. in jeder UF oder Prozedur muss explizit das
Set ws = Worksheets("Tabelle1") immer wieder geschrieben werden.
Gibt es eine Möglichkeit Set ws = Worksheets("Tabelle1") als Public
dimensionieren?
Hat Jemand eine Idee?
Vorab vielen Dank.
Grüße
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Public ws As Worksheet
20.04.2009 13:45:37
Hajo_Zi
Hallo Edie,
Du hast es schon in einem Modul definiert?

AW: Public ws As Worksheet
20.04.2009 14:06:23
Edie
Hallo Hajo_Zi,
wenn ich im Modul Set ws = Worksheets("Tabelle1")
schreibe funktioniert das UF nicht ich muss im UF
Set ws = Worksheets("Tabelle1") schreiben dann
funktioniert es bestens.
Ich hatte gehofft, dass man einmal im Modul
Set ws = Worksheets("Tabelle1") schreibt und das
würde wir alle gelten.
Vorab vielen Dank.
Grüße
Anzeige
AW: Public ws As Worksheet
20.04.2009 14:08:55
Hajo_Zi
Hallo Eddie,
ich hatte nach der Definition gefragt, also das Public steht schon in einem Modul?
Gruß Hajo
AW: Public ws As Worksheet
20.04.2009 14:53:28
Edie
Hallo Hajo_Zi,
ja, Public ws As Worksheet steht schon im Modul
hatte geglaubt, dass mit Set ws = Worksheets("Tabelle1")
im Modul auch für alle UF gilt.
Vielen Dank im Voraus.
Grüße
Anzeige
AW: Public ws As Worksheet
20.04.2009 14:55:52
Hajo_Zi
Hallo Edie,
das glaube ich auch.
Die Variable WS hast Du nirgens anders definiert?
Du hast auch nicht an der falschen Stelle Set ws =nothing geschrieben?
Gruß Hajo
AW: Public ws As Worksheet
20.04.2009 15:07:42
Edie
Hallo Hajo_Zi,
nee, habe nur einmal im Modul Public ws As Worksheet
und in den UF immer Set WS = Worksheets("Tabelle1")
und Set ws =nothing habe nicht geschrieben.
vielen Dank.
Grüße
Anzeige
AW: Public ws As Worksheet
20.04.2009 15:12:12
Hajo_Zi
Hallo Edie,
dann bin ih mit meinem Latein am Ende, da ich Deine Datei nicht sehe.
Gruß Hajo
AW: Public ws As Worksheet
20.04.2009 15:24:43
Edie
Hallo Hajo,
macht nix, funktioniert ja, war ein Versuch wert.
Vielen herzlichen Dank.
Grüße
AW: Public ws As Worksheet
20.04.2009 15:27:58
Tino
Hallo,
demnach müsste Dein Code in etwa so aussehen.
Dialog UserForm1 
Option Explicit 
 
Private Sub CommandButton1_Click() 
Debug.Print WS.Name 
End Sub

Modul Modul1 

Option Explicit 
 
Public WS As Worksheet 
 
Sub Beispiel() 
Set WS = Worksheets("Tabelle1") 
UserForm1.Show 
End Sub


Gruß Tino

Anzeige
AW: Public ws As Worksheet
20.04.2009 16:17:32
Edie
Hallo Tino,
manche Sachen sind so einfach, wenn man weiss wie es geht.
Das ist es:
Public WS As Worksheet 

Sub Beispiel()
Set WS = Worksheets("Tabelle1")
UserForm1.Show
End 


Sub
Vielen herzlichen Dank.
Grüße
Anzeige
;

Forumthreads zu verwandten Themen

Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Worksheet.Protect - Passw per VBA läuft nicht mehr
Max

Hallo zusammen.
Folgendes Makro habe ich seit Jahren ohne probleme benutzt: Sub HBxkxU() On Error Resume Next ActiveSheet.Unprotect Password:="" If Err "0" Then Err = "0" ActiveSheet.Unprotect Password:="XpwX" Else: Stop End If End Sub Es lief anstandslos auf den letzten 2 Excel 2007 Inst...
06.04.2010 15:48:44
Thread-ID: 1150350
4 Beiträge
Anzeige
Variabler Blattname unter VBA
Berolinea

Hallo,
ich möchte den Blattnamen unter VBA variabel gestallten.
die Variable reiter beinhaltet diesen.
ActiveChart.SetSourceData Source:=reiter.Range("A1:A20,P1:S20"), PlotBy:=xlColumns
bringt Laufzeitfehler 424 objekt erforderlichctiveChart.SetSourceData Source:=Sheets(reiter).Rang...
06.06.2002 16:48:31
Thread-ID: 126611
3 Beiträge
Variablenname nicht in allen Sheets verfügbar
Thomas

Hallo,
folgendes Problem liegt vor:
- Auf Sheet1 habe ich einige Zellen mit Namen belegt um leichter in Formeln auf diese Zellen zugreifen zu können, z.B. den Namen HoursPerDay
- auf 10 anderen Sheets sind diese Variablennamen auch verfügbar, was man sehen kann in dem man in das Dro...
27.11.2012 09:44:51
Thread-ID: 1288213
3 Beiträge
Anzeige
Worksheets in dreidimensionales Array einlesen VBA
Jane

Hallo,
ich bin hier noch neu und auch noch nicht so geuebt in VBA.
Vielleicht stehe ich nur auf der Leitung, aber ich wuerde eigentlich gerne nur wissen, wie ich schnellstmoeglich ein ganzes Worksheet in ein dreidimensionales Array einlesen lassen kann ohne jede einzelne Zelle aufrufen...
20.03.2014 04:42:35
Thread-ID: 1354132
6 Beiträge
Teil der Formel durch Variable ersetzen VBA
Ines

Hallo,
ich habe folgendes Problem. Mit der Formel Range("E2").FormulaR1C1 = "=RC[-1]*24" wird in VBA der Wert der eine Spalte vorher steht mit 24 multipliziert. Diesen kann ich auch auf eine andere Zahl ändern, so ändert sich die Spalte. Nun möchte ich gerne das dieser Wert durch den Benutz...
07.05.2014 10:57:50
Thread-ID: 1360231
6 Beiträge
VBA - Field als Variable
Thomas

Hallo zusammen,
ich bräuchte Unterstützung bei dem folgenden Code: Private Sub CommandButton1_Click() Dim ZelleAE As Range Set ZelleAE = Sheets("HT").Range("B2:B36").Find(What:=Me.ComboBox1.Value, LookIn:=xlFormulas, _ _ LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, M...
11.12.2015 21:50:29
Thread-ID: 1463970
8 Beiträge
VBA WebTables Name und Javascript Variable Frage
Tim

Hallo Leute,
bräuchte bitte eure Hilfe; ist es möglich beim auslesen einer Tabelle von einer Website auch den Namen, also die div id zu bekommen?
Mit diesem Code bekomme ich die Tabelle aber leider ohne Name:
Set shFirstQtr = Workbooks(1).Worksheets(1) Set qtQtrResults = shFirstQtr...
09.05.2016 16:52:14
Thread-ID: 1492392
3 Beiträge
VBA Workbook Variable Datei zuorden
Julia

Hallo,
ich arbeite das erste Mal mit Makros.Ich habe einen variablen Dateinamen und lese diesen mit einer InputBox ein. Abgespeichert wird der Name in einer String-Variable (inkl. Dateiende).
Für die Methode Activate brauche ich allerdings eine Workbook-Variable.
Gibt es eine Mögli...
07.09.2016 12:25:41
Thread-ID: 1513323
3 Beiträge
vba SheetNames mit unicodezeichen bekommen
ExtremeExceling

Hallo zusammen,
ich habe Unicode Symbole bzw. Zeichen in den TabellenNamen.
edoch zeigt mir VBA und VBE, die Sheets(1).name als normalen String an der keine unicode-Symbole anzeigt.
Mit dem kleinen makro, das man sich in ein ein modul einfügen kann.
Wenn man es nicht bereits off...
23.11.2016 14:08:59
Thread-ID: 1526542
4 Beiträge
Zählenwenn von VBA in Sheet schreiben lassen
VBA

Hallo,
folgendes Problem:
=ZÄHLENWENN(B4:B6;"")
Gebe ich das in eine Zelle im Tabellenblatt ein, ist alles top. Es werden die nicht leeren Zellen im Bereich B4 bis B6 gezählt. Das ist genau das, was ich will.
Möchte ich die Formel aber durch ein Makro in die Zelle B3 eintragen l...
22.04.2017 17:24:10
Thread-ID: 1554156
9 Beiträge
Fehler beim Setzen einer Worksheet-Variable
Llemaban

Hallo zusammen
Beim Erstellen eines Backup einer Reklamationsliste, entstehen ganz komische Ergebnisse, die alle darauf hinführen, dass das setzen der Variable wbSicherungskopie nicht korrekt funktioniert. Doch dies geschieht nur, wenn andere Worksheets noch offen sind...
Dies in der Re...
30.06.2017 10:32:27
Thread-ID: 1566712
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