Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellen aktivieren

Tabellen aktivieren
29.08.2014 12:13:08
NoPa
Hallo,
ich möchte gerne verschiedene Tabellenblätter nacheinander aufrufen um jeweils eine andere Prozedur abspielen zu lassen!
Ich würde es gerne nicht über den Namen des Blattes machen sondern über den hinterlegten „Eigenschafts-Name“ steuern.
Ich hätte mir eine Schleife überlegt?!
Über das Worksheet hatte ich es schon mal versucht, aber das gefällt mir nicht so!
Ich würde mir vorstellen:
aktiviere Tabelle 1-3 und 7 und 9, und führ die Prozedur durch!
Dann
Aktiviere Tabelle 4-6 und 8 und 10 und führe die Prozedur durch
Hat jemand einen Vorschlag für mich?!
Hier meine Tabelle!
https://www.herber.de/bbs/user/92384.xlsm
Danke
Gruß
Norbert

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ich wusste es!
29.08.2014 12:24:07
Rudi
wie üblich eine überflüssige, zur Lösung des Problems nichts beitragende Antwort.
Mach wenigstens den Haken bei Offen rein.

Anzeige
AW: Tabellen aktivieren
29.08.2014 12:32:26
Rudi
Hallo,
nicht über den Namen des Blattes machen sondern über den hinterlegten „Eigenschafts-Name“
meinst du damit den Codenamen?
Gruß
Rudi

AW: Tabellen nicht aktivieren
29.08.2014 12:37:13
Rudi
Hallo,
so?
Sub hallo()
Dim x As Integer
For x = 1 To 3
Worksheets("Blatt" & x).Range("B3") = "hallo"
Next x
For x = 4 To 6
Worksheets("Blatt" & x).Range("B3") = "Guten Tag"
Next x
End Sub
Gruß
Rudi

AW: Tabellen aktivieren
29.08.2014 12:45:59
Jack_d
Hallo Norbert
ich könnte mir das so vorstellen (ungetestet)
Sub hallo()
For i = 1 To Worksheets.Count
With Worksheets(i)
Select Case i
Case 1 To 3 Or 7 Or 9
.Range("B3") = "Nee"
Case 4 To 6 Or 8 Or 10
.Range("B3") = "Doch"
End Select
End With
Next i
End Sub
Grüße

Anzeige
Jack: , statt OR !!!
29.08.2014 12:50:55
Rudi
Hallo,
so geht das:
    Select Case i
Case 1 To 3, 7, 9
.Range("B3") = "Nee"
Case 4 To 6, 8, 10
.Range("B3") = "Doch"
End Select

Gruß
Rudi

Ups
29.08.2014 12:53:17
Jack_d
Okay.. wieder was gelernt...
Vielen Dank dafür Rudi
Grüße

AW: Ups
02.09.2014 14:22:08
NoPa
Danke Schon mal.
Funktioniert gut!
Gruß
Norbert

AW: Jack: , statt OR !!!
04.09.2014 10:31:13
NoPa
Hallo Rudi,
ich bin noch nicht ganz zufrieden!
Ich würde es gerne über den hinterlegten Namen im Projekt z.B. "Tabelle1", "Tabelle2" usw. ansprechen!Es wird ja im VBA Projekt mit Tabelle 1 (und der Name "Blatt1") angezeigt.
Denn wenn ich die Blätter (Worksheets) verschiebe, wird die das Falsche Tabellenblatt angesprochen!
Ich möchte, dass egal an welcher Stelle im Projekt das Blatt steht, richtig über die Bezeichnung "Tabelle! angesprochen wird!
Kannst du mich verstehen!?
Danke
Gruß
Norbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige