Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1984to1988
1984to1988
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable als Teil des Worksheetnamen

Forumthread: Variable als Teil des Worksheetnamen

Variable als Teil des Worksheetnamen
11.07.2024 11:19:00
Andreas Hantschmann
Hallo,

ich benötige Eure Hilfe.

Ich mochte mit [counta] Daten aus einer Tabelle auslesen. (nicht das Problem) - der Name der Datenquelle zum auslesen ist allerdings variabel und besteht aus dem activen Worksheet und der Endung "_edit"

Ich möchte also auf dem Reiter Dierhagen die Daten aus dem Reiter "Dierhagen_edit" ausgeben.
Der Code soll allerdings noch in 6 weiteren Reitern die im selben Muster aufgebaut sind funktionieren, also nimm den Namen vom aktiven Reiter, packe diesen mit der Endung "_edit" in den Code und lies die Daten aus

was habe ich 


Dim Aname As String

Dim iRow As Long



Aname = ActiveSheet.Name



iRow = [counta("Aname" & _edit!B:B)]



MsgBox iRow


verkürzt ich zähle die Zeilen aus - is mein Test...könnt Ihr mir bitte helfen. Ich bin bei unzähligen Foren-Artikeln durch im Kopf.

Danke der Hunchback
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variable als Teil des Worksheetnamen
11.07.2024 11:40:36
peter
Hallo

CountA erwartet einen Range 



    Dim Aname  As String

    Dim iRow As Long

    Dim rng As Range



    Aname = ActiveSheet.Name & "_edit!B:B"

    Set rng = Range(Aname)

    

    iRow = WorksheetFunction.CountA(rng)


Peter
Anzeige
AW: Variable als Teil des Worksheetnamen
11.07.2024 12:51:34
daniel
Hi
die eckigen Klammern sind in VBA so etwas wie ein Wurmloch in die Excelwelt.
innerhalb der Klammern befindest du dich quasi in einer Excelzelle und musst dort dann "excel-formulieren" anstelle von "vba-programmieren".
das bedeutet aber auch, dass du dort keine Variablen aus VBA verwenden kannst.

Wenn du jetzt Excelfunktionalitäten kombiniert mit VBA-Methoden nutzen willst, gibt es zwei Wege:
a) VBA hat die entsprechende Excelfunktion importiert und du kannst sie - so wie von peter gezeigt - via Worksheetfunction in VBA nutzen.
b) du erstellst zu erst die benötigte Excel-Formel als Text in VBA und lässt diese dann mit EVALUATE berechnen: 
irow = Evaluate("counta('" & aName & "_edit'!B:B")



kleiner Tipp: bei variablen Tabellenblattnamen sollte man immer die Hochkommas mit einsetzen.
Diese werden zwar nur dann benötigt, wenn der Dateiname ein Sonderzeichen enthält oder nur aus Zahlen besteht, da aber schon das normale Leerzeichen ein solches Sonderzeichen ist, tritt dieser Fall schnell ein.

Gruß Daniel
Anzeige
AW: Variable als Teil des Worksheetnamen
11.07.2024 11:50:27
Andreas Hantschmann
Hallo Peter,

vielen lieben Dank - sollte mein VBA-Kenntnisse doch auf unterirdisch Ändern.
Danke für die schnelle Hilfe

Der Hunchback
;

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
Ifnot ActiveSheet.Name ......
reinhardt

Hallo,
wie muß der Code richtig heißen:
Wenn das aktive Tabellenblatt nicht Tabelle1 ist, "tue" nix, sonst "mache...."
Sub test()
Ifnot ActiveSheet.Name = Sheets("Tabelle1") Then
"tue" nix
else
Mach...............
End If
Gruß Reinhardt.
11.07.2011 11:32:20
Thread-ID: 1221657
4 Beiträge
Macro, sverweis mit ActiveSheet.Name Problem
bruno

Hallo zusammen
Würde gerne den unterstehenden Code verwenden. Kann mir jemanden helfen beim verpacken des "ActiveSheet.Name"?
ActiveSheet.Cells(index_wkctr, 10) = "=VLOOKUP(""ActiveSheet.Name"",start_times!B:G,2,0)"
Danke
de bruno
18.10.2011 20:37:20
Thread-ID: 1234415
10 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
Laufzeitfehler 1004 ActiveSheet.Name Array..
Philip

Hallo liebes Forum!
Habe folgenden Code:
Option Explicit Sub Stellplatz() Dim i As Integer Dim intTab As Integer Dim k As Long, n As Long Dim L As Long Dim P As Long Const Blatt1 = "Saldo-Datenblatt" Const Blatt2 = "Berechnung1" Const Blatt3 = "Berechnung2" Const Reihen As Integer = 3...
05.06.2013 13:03:37
Thread-ID: 1316384
8 Beiträge
Sheetname per VBA in Zelle zur Weiterberechnung
Eric

Hallo Leute,
ich sitze gerade etwas in der Klemme. Ich hoffe ihr habt eine Idee.
Folgendes: Ich habe verschiedene durch VBA erzeugte Sheets die im Datum aufwärts gezählt werden (also 5.6.2014 / 6.6.2014 usw.). Jetzt wird auch durch VBA in Zelle A1 jedes Sheets eben dieses Datum angeze...
12.05.2014 14:31:37
Thread-ID: 1361133
3 Beiträge
Sheetname per VBA in Zelle zur Weiterberechnung
Eric

Hallo Leute,
ich sitze gerade etwas in der Klemme. Ich hoffe ihr habt eine Idee.
Folgendes: Ich habe verschiedene durch VBA erzeugte Sheets die im Datum aufwärts gezählt werden (also 5.6.2014 / 6.6.2014 usw.). Jetzt wird auch durch VBA in Zelle A1 jedes Sheets eben dieses Datum angeze...
12.05.2014 14:31:45
Thread-ID: 1361134
2 Beiträge
Active Sheet in neue Datei mit VBA
Andreas

Hallo Excelfreunde,
Habe folgenden Code der auch funktioniert.
Mit diesem Code kann ich aus meinem aktiven Sheet über einen CommandButton das aktive Sheet in eine Neue Datei die welche laut Makro Vorgabe neu erstellt wird mit allen Inhalten sowie vorhandenen CommandButtons einfügen. Das...
06.08.2014 18:37:07
Thread-ID: 1374800
5 Beiträge
VBA Makro Source Data ActiveSheet
Fabio

Hallo Leute,
habe ein Problem mit meinem Makro. VBA Erfahrung habe ich noch zu gut wie keine. Ich versuche momentan das Makro unabhängig vom Dateinamen zu ändern und hatte auch erste Erfolge durch den ActiveSheet Befehl. Siehe hier:
ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter...
16.09.2015 11:15:33
Thread-ID: 1447721
6 Beiträge
Anzeige
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 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
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige