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

Sheets - Mehrfachauswahl - Anzahl ermitteln

Forumthread: Sheets - Mehrfachauswahl - Anzahl ermitteln

Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 12:28:54
Peter
Guten Tag
Ausgangslage
Möglicherweise sind mehrere Sheets aktiviert
ich möchte mir alle selektierten Sheets merken
dann nur noch eines selektieren
einen Code laufen lassen (den es stört, wenn mehrere Sheets selektiert sind)
und dann wieder zur ursprünglichen Mehrfachselektion zurückkehren.
Wer kann mir helfen?
Danke und Gruss, Peter

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 12:35:41
Rudi
Hallo, 
Sub aaa()
Dim oSelSh As Object
Set oSelSh = ActiveWindow.SelectedSheets
Sheets(1).Select
'dein Code
oSelSh.Select
End Sub

Gruß
Rudi

AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 13:52:09
Peter
Hallo Rudi
Super - klappt.
Vielen Dank
Peter

AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 14:29:33
Peter
Hallo Rudi
Es ist noch ein Problem aufgetaucht, da manchmal die 1. Tabelle ausgeblendet ist.
Kann anstelle Sheets(1).Select die die erste sichtbare oder (noch besser) das erste Sheet, des Objekts oSelSh selektiert werden? Wie frage ich die erste Tabelle aus oSelSh ab?
Danke und Gruss, Peter

Anzeige
AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 14:35:42
Peter
Hallo Rudi
Habe beim Nachfragen irrtümlicherweise das Kontrollkästchen nicht aktiviert.
Gruss, Peter

AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 14:52:22
EtoPHG
Hallo Peter,
Besser wäre es natürlich dein Makro so anzupassen, dass es auch bei einer Mehrfachselektion von Blättern richtig funktioniert. Mit .Select und .Activate zu arbeiten ist immer unschön und meistens kotraproduktiv. Um das este Blatt der Mehrfachselektion auszuwählen, schreibe 
oSelSh(1).Select

Gruess Hansueli

Anzeige
AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 15:03:03
Peter
Hallo Hansueli
Danke für die Lösung, das hilft weiter.
Mit dem Passwort setzen über alle Tabellenblätter klappt es mit nachfolgendem Code nur, wenn ich keine Mehrfachselektion habe. Wenn das anders geht, wäre ich interessiert daran, das zu wissen.
Gruss, Peter
Sub ATabellenschutz_aktivieren_alle()
Application.ScreenUpdating = False
stractivesheet = ActiveSheet.Name
ActiveCell.Activate
stractivecell = Selection.Address
' mit userinterfaceOnly:=True wird bewirkt, dass Markros auch in geschützten Tabellen laufen,
' d.h. sie müssen nicht bei jeder Routine entschützt werden
Dim intTabz As Integer, i As Integer, intTabVisible1 As Integer, oSelSh As Object
Set oSelSh = ActiveWindow.SelectedSheets
'Debug.Print oSelSh.Count
oSelSh(1).Select
Passwort_Abfragen
intTabz = ActiveWorkbook.Worksheets.Count
For i = 1 To intTabz
Sheets(i).Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=strpasswort & "!!"
Sheets(i).EnableSelection = xlNoRestrictions
Next i
oSelSh.Select
Sheets(stractivesheet).Activate
Range(stractivecell).Activate
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 15:20:53
EtoPHG
Hallo Peter,
Ich wusste ja nicht um was es geht. Das ist einer der 0.01% Fälle in dem .Select nötig ist.
Aber man könnte es auch etwas einfacher schreiben: 
Sub AlleProtect()
Const strpasswort As String = "abc!!"
Dim ws As Worksheet
Dim oSelSh As Object
Set oSelSh = ActiveWindow.SelectedSheets
ActiveSheet.Select
For Each ws In ThisWorkbook.Worksheets
ws.Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=strpasswort
ws.EnableSelection = xlNoRestrictions
Next
oSelSh.Select
End Sub
Gruess Hansueli

Anzeige
AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 15:51:49
Peter
Hallo Hansueli
Ja, das ist einfacher; ich habe es übernommen.
Vielen Dank und Gruss, Peter

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzeige
Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Zelle mit Zahl zerlegen
Karsten

Hallo Leute,
folgendes Problem:
ich habe in der Zelle N3 eine Versionsnummer stehen (Beispiel) 1.23.45.
Wobei die Position der Punkte nicht fest ist, also wären auch 12.3.45 oder 12.34.56 möglich.
Diese Versionsnummer möchte ich nun in VBA auf 3 Variablen verteilen, also X1, X...
18.09.2008 14:57:00
Thread-ID: 1010749
16 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Zahl als Text
Volker

Guten Morgen zusammen,
mich beschäftigt ein -für Euch warscheinlich kleines-Problem.
Ich versuche mehrere Zellen zusammenzufassen.
Dies geschieht mittels =H9&C3&JAHR(C1)&C3&C2 entspricht "blabla-2008-1".
Soweit so gut. In Zelle C2 steht allerdings 001. Dieses...
26.09.2008 10:00:00
Thread-ID: 1012518
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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