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

VBA: prüfen on TabName & akt. Jahr vorhanden

Forumthread: VBA: prüfen on TabName & akt. Jahr vorhanden

VBA: prüfen on TabName & akt. Jahr vorhanden
04.12.2017 15:25:25
Bernd
Hallo zusammen,
bräuchte mal Hilfe. Und zwar möchte ich beim Öffnen der Mappe prüfen ob TabName "abc" & aktuelles Jahr vorhanden ist, wenn nein dann anlegen.
Danke im Voraus!
Lieben Gruß aus Bremen
Bernd
Office 2016 Pro 32bit
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: prüfen on TabName & akt. Jahr vorhanden
04.12.2017 15:37:03
Matthias
Hallo Bernd
Option Explicit
Sub tt()
Dim x&
For x = 1 To Sheets.Count
If Sheets(x).Name = "abc" & Year(Now) Then
MsgBox "Das Blatt [abc" & Year(Now) & "] exsitiert schon"
Exit Sub
End If
Next
Worksheets.Add.Name = "abc" & Year(Now)
End Sub
Gruß Matthias
Anzeige
AW: VBA: prüfen on TabName & akt. Jahr vorhanden
04.12.2017 15:43:12
Bernd
Hallo Matthias,
Herzlichen Dank für deine Bemühungen. Es passt wieder immer bei dir!!!
Lieben Gruß aus Bremen
Bernd
Matthias, noch etwas vergessen
04.12.2017 16:18:47
Bernd
Hallo Matthias,
etwas hatte ich nicht bedacht und zwar ist der restliche Code ausgelegt auf Tabelle "abc2017". Im neuen Jahr 2018 würde den restliche Code auf die falsche Tabelle zugreifen.
Hier ein Beispiel: 

Private Sub UserForm_Initialize()
Dim tbl As Worksheet
Dim strName As String
Set tbl = Worksheets("abc2017") ' im Jahr 2018 müsste es ("abc2018") heißen
Gibt es eine Möglichkeit, dass beim ersten Öffnen der Mappe im neuen Jahr, 1. die Abfrage, ob Tabelle vorhanden ist, durchläuft und sobald die neue Tabelle erstellt ist, der gesamte Code ebenfalls auf den neuen Tabellennamen umgestellt wird?
Lieben Gruß aus Bremen
Bernd
Anzeige
AW: Matthias, noch etwas vergessen
04.12.2017 16:46:45
Daniel
Hi
naja, wie du das aktuelle Jahr bekommst, kannst du dir doch aus dem Code von Matthias ableiten und dann diese Funktion (Year(Now)) immer dort einsetzen, wo du das aktuelle Jahr verwendest.
ich würde das mit dem Anlegen des Blattes etwas einfacher gestalten:
dim tbl as Worksheet
On Error Resume Next
set tbl = Worksheets("abc" & year(now))
On Error goto 0
if tbl is Nothing then
set tbl = Worksheets.Add
tbl.Name = "abc" & Year(Now)
end if
Gruß Daniel
Anzeige
AW: Matthias, noch etwas vergessen
04.12.2017 17:05:03
Bernd
Hallo Daniel,
Danke für deine Hilfe!!!
Habe ich dich richtig verstanden, dein Code ist von der Funktion exakt der Gleiche wie der von Matthias?
Und meinen restlichen Code soll ich so abändern: 

Set tbl = Worksheets("abc") & Year(Now)

Analog meines vorherigen Beitrags.
Lieben Gruß aus Bremen
BErnd
Anzeige
AW: Matthias, noch etwas vergessen
04.12.2017 17:20:58
Daniel
naja, fast.
Matthias prüft nur, ob das Blatt vorhanden ist und fügt es gegebenenfalls hinzu.
Wenn man aber das Blatt auch noch einer Variablen zuweisen will, kann man beides kombiniert machen.
Man weist Excel einfach an, bei einem Fehler mit dem nächsten Programmschritt weiter zu machen und weist dann das Blatt einer Variable zu.
Dann prüft man, ob die Zuweisung funktioniert hat und erstellt das Blatt, falls nicht.
Ist zwar nach reiner Lehre keine saubere Programmierung, funktioniert aber ganz gut und man spart die Schleife.
Und Schleifen sind lästig, wenn man den Code im Einzelstep testen muss, daher versuche ich, Schleifen soweit wie möglich zu vermeiden.
Gruß Daniel
Anzeige
AW: Matthias, noch etwas vergessen
04.12.2017 17:50:05
Bernd
Hallo Daniel,
Danke für die tolle Erklärung :-)
Das hat mir sehr geholfen!!!
Lieben Gruß aus Bremen
Bernd
Alles Klar !!! owT
04.12.2017 17:20:13
Bernd

Forumthreads zu verwandten Themen

"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
wenn/dann/sonst???
m-andi

Hallo zusammen,
in VBA bin ich noch ein Depp,
ich bräuchte bitte eure Hilfe.... das Problem ist folgendes:
Ich habe in einem Feld (J24) entweder tags, nachts, immer oder nie stehen,
Bei Tags soll es in die Felder G29 und G45:G52 ein "ja" schreiben, in die Felder G30:G44 ein "ne...
15.11.2008 13:30:42
Thread-ID: 1024753
4 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Andere Schreibweise für Formel in VBA
MAS

Einen wunderschönen guten Abend,
ich muss in einem Tabellenblatt einige Formeln per VBA erzeugen.
Mit Hilfe des Makrorecorders müsste ich diesen String erzeugen - die Formel ist allerdings nur recht schwer lesbar
Würde gerne schöne Zellbezeichnungen angeben - was muß ich denn dazu...
04.03.2009 16:56:56
Thread-ID: 1056514
5 Beiträge
Anzeige
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Anzeige
VBA: abfragen, ob benannte Tabelle vorhanden ist
André

Moin zusammen,
wie kann ich per VBA abfragen, ob in einem Tabellenblatt bereits eine "benannte Tabelle" definiert ist?
Ich erstelle die Tabelle mit
Worksheets("Datensätze").ListObjects.Add(xlSrcRange, rg, , xlYes).Name = "Datenbereich"
Läuft das Makro dann ein weiteres mal, kom...
12.06.2009 14:18:00
Thread-ID: 1080995
2 Beiträge
Anzeige
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
aus anderer Mappe Spalten importieren VBA
Wolfgang

Hallo,
aus einer anderen Anwendung wird eine Excel-Mappe mit Namen "Liste1" generiert. Wäre denkbar, dass ich aus dieser geöffneten Mappe mittels VBA bestimmte Spalten (z.B. A-C, dann erst wieder F, H etc.) in eine neue Mappe importieren kann. Problem ist vielleicht, dass die Überschriften...
27.09.2009 12:28:39
Thread-ID: 1105822
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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