HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

Forumthread: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet
2 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen

Forumthread: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

Karsten

Hallo,
ich möchte eine Aktion auslösen, wenn ich mich nicht auf der Seite "XXX" oder "YYY" befinde.
Kann mir jemand diesen Code richtig schreiben?
If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet Is not Sheets("YYY") Then
ActiveSheet.Paste
End If
Danke für eure Hilfe.
Gruß
Karsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

fcs
AW: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

Karsten

AW: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

01.11.2010 10:00:24

fcs

Hallo Karsten,
mit Select Case geht es etwas eleganter als mit OR in If-Anweisung
Gruß
Franz


Sub aatest()
Select Case ActiveSheet.Name
Case "XXX", "YYY" 'Großkleinschrebung der Blattnamen beachten!
Case Else
ActiveSheet.Paste
End Select
End

AW: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

01.11.2010 10:18:57

Karsten

Hallo Franz,
Danke.
Gruß
Karsten

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 12:23:00

Thread-ID: 1008998

15 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 12:21:33

Thread-ID: 1019856

2 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...

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 14:30:42

Thread-ID: 1024753

3 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 21:04:52

Thread-ID: 1028782

4 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 10:08:18

Thread-ID: 1029158

1 Beitrag

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 17:56:56

Thread-ID: 1056514

4 Beiträge

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 13:25:25

Thread-ID: 1074763

8 Beiträge

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 16:18:00

Thread-ID: 1080995

1 Beitrag

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 23:23:07

Thread-ID: 1082734

5 Beiträge

Weitere verwandte Threads

aus anderer Mappe Spalten importieren VBA

VBA-Befehl: Zeichen in Schriftart nicht vorhanden

Wieder ein Wenn-Dann-Sonst Problem

Wenn,dann,sonst

Versand Tabellenblatt ohne Formel OHNE VBA

Wenn Dann Sonst

Wenn o dann Text in A1 rot

wenn dann sonst

Seitenumbruch per VBA nach Begriffsänderung

Wenn Jahreszahl übereinstimmt,dann, sonst...

MACROBUTTON in WENN DANN SONST Serienfeld

Wenn in D3 = X, Dann Text aus C3 -VBA

prüfen ob versch. Ziffern in Zellen vorhanden sind

VBA Formel in Abhängigkeit von anderem Wert

wenn(isfehler=wahr;dann;sonst in vba

Formel (standard?) Wenn, Dann, Sonst

VBA-Hilfe benötigt: Anwahl eines Tabellenblatts

Wenn zelle AW3, dann Farbe und Text.

VBA : Lotus Notes Mail per Vorlage

per VBA Formeln ändern?

VBA: Eintrag schon vorhanden Meldung eingrenzen

Wenn Name dann Text

Spalten anhand Überschriften ausblenden (VBA)

VBA - Prüfen ob Schaltfläche vorhanden

VBA Formel ändern nach einfügen einer Spalte

vba; Abfrage, ob alle Dateien vorhanden sind...

VBA-Code ändern (vorhandenen Speicherpfad nutzen)

wenn, dann, sonst

Wenn dann sonst

VBA komplette Formatierung (Zeilenhöhe, Seitenrand

Wenn dann sonst Formel

Wenn-Dann-Sonst Formel gesucht

vorhandene Formel in VBA?

Wenn-Dann-Sonst Formel Erweitert

VBA Lotus Notes - "Keine Kopie zulassen"

Per VBA aus ZA einfügen, wenn nicht vorhanden

VBA 2 Zeilen vor jeder Zahlenreihenänderung einfüg

[VBA-Schleife] Worksheets öffnen und speichern

Wenn Dann mit Text

Füll-und Schriftfarbevoreinstellungen evt ändern

VBA|UserForm For-Each-Schleife zählt nicht korrekt

VBA Baumstruktur nicht vorhanden

Auf Zellen in anderer Tabelle durch Formel zugreif

Bereich(Wenn Zelle leer dann Text)

Formeln mit VBA kopieren ohne Formate zu ändern

Excel:Zählenwenn; VBA:Countif - and. Ergebnis

VBA: Formel auslesen und verändern

Wenn Dann Sonst Nichts

Wenn Comboboxen nicht leer dann, sonst

WENN DANN SONST

Wenn dann Text

wenn eine instanz auf dann neue instanz sonst...

VBA Informationen aus anderen Dateien abrufen,

Wenn Zelle 'NV' enthält, dann führe Befehl nochmal

Wenn Zelle = C1, dann andere Zelle = D1

VBA Schleife für Formel

VBA - Formel ändern wenn Zelle nicht leer

VBA Formel mit Bedingung in anderer Spalte

per Schleife nur vorhandene Elemente ansprechen?!

If ThisWorkbook.FileFormat = 52 And ?

Umwandlung Formel in VBA

VBA IF(ISERROR) .Formula

Wenn "Text" dann änder in "Textgeändert"

Datumsformat mit VBA Import Ändern

VBA: Spalte A beim Export nebeneinander anzeigen

VBA Blätter vorhanden?

Dateiformat ändern

WENN UND DANN SONST

Textformatierungen in Wenn-Dann-Sonst

WennDannSonst: drei alternative Wenn-Bedingungen

Wenn Dann Sonst mit 3 verschiedenen Ergebnissen

Excel VBA CommentIndicator Farbe ändern, Code Umba

UF- Wenn Combobox Wert dann TextBox

Suchen von 3Texten - mit WENN / DANN / Sonst Nix

VBA Makro in eine Schleife ändern

VBA Schleife hört nicht richtig auf

VBA - Zellbezug als Formel in anderes Blatt

VBA aufgezeichnete If-Formel geht nicht

VBA- Backgroundquery Format ändert sich automatisc

Textdatei per VBA importieren und umwandeln

VBA - Aus Userform andere Mappe öffnen

VBA Formel in feste Werte wandeln

VBA Datum Format ändern + Pivot auswerten

VBA unload me und Formular.show anders

Wenn Oder/Und Dann Sonst

wenn dann sonst ist eigentlich einfach aber

Horiz. Achsenbeschrift. per VBA an und ausschalten

Wenn "X" dann in anderen Zellen "X" hin

Autovervollständigen Formeln per VBA deaktivieren

Wenn letztes Quartal dann "JA", sonst "QA&quo

Zellencode wenn dann Text, wenn nicht Inhalt

VBA Tabellen erstellen und überprüfen ob vorhanden

wenn und wenn dann sonst - es geht einfach nicht..

Standardarbeitsordners mit VBA ändern.

wenn/dann/sonst in String

VBA fortlaufende Nummerierung -Abänderung_

Wenn Dann Sonst / mit mehreren Bedingungen

Link per VBA in Lotus Notes message einfügen

VBA Schriftart Grundeinstellung ändern

VBA-Filtertab übergreifend steuert anderen Filter

Spaltenüberschrift nicht vorhanden

Wenn dann mit Textteilen

wenn dann oder sonst

VBA: Datenüberprüfung vorhanden?

Vba Tabbele erstellen nur wenn noch nicht vorhande

Hilfe bei Wenn Und Dann Sonst Formel

Bitte VBA-Formel ändern

VBA: Liste über Userform nacheinander füllen

VBA Schleife für VBA Kennwortschutz

VBA: 2 Kriterien in Liste vorhanden?

VBA Word alle zwei zeichen einen Abstand einfügen.

Wenn dann / Vergleich / oder wie sonst??

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

Wenn, Dann, Sonst Wenn, Aber ?

VBA spezifischer Code für PDF Speichern mit Ordner

Wenn in A mehrfach dann Verküpfung sonst

VBA - SumIf(s) vereinfachen wegen performence

Excel VBA - IF AND THEN funktion

SVERWEIS / VLookUp unter VBA mit IFISERROR

VBA Formeln in anderes Tabellenblatt schreiben und

VBA End if wert vorhanden

IIf Funtkion mit Or und And?

Wenn,dann, sonst VBA

VBA: wenn aktuelles Blatt. dann, ... sonst

WennOder; dann; sonst

Zwei Makros starten mit Wenn Dann Sonst

Formel in der Schleife per VBA

Wenn Zelle leer, dann nehme nächsten Text

VBA-Code per Userform ändern

For und If in VBA schachteln

Hilfe bei VBA - benötige einen Button

VBA: Zugriff auf Workbook/Aktualisieren

VBA Hilfe "If and then"

VBA Zellenfarbe wenn Wert ggüber Vorwert anders

kennt sich jemand mit word/vba aus?

vba mehrere Formen gleichzeitig ändern

VBA greift auf andere geöffnete Datei zu

VBA Kombi If Datum vor 2019 AND ...

VBA: if date endet in runtime error 13 mismatch

Wenn dann sonst

Wenn Wort in Zelle, dann gebe gesamten Zellentext

VBA Userform suchen in anderem Tabellenblatt

VBA: Prüfen auf Vorhandensein und Einfügen

Combobox soll auf andere Workbock zugreifen

formatierung der schriftgröße mit vba

WennDann mit Textteilen

Wenn dann sonst

andere Formulierung f. VBA CODE

VBA : bitte anderen Begriff für einen Befehl

VBA: If .. And ..

Wenn zwischen dann sonst ....

if not i = 2 or 3 then.. wie geht das?

Wenn ein Monat vergangen, dann "x" in andere Zelle

VBA Schleifenanweisung oder anders ?

WENN-DANN-SONST per VBA

workbook.open ...,notify ???

Wenn(Prüfung;Dann_Wert;Sonst_Wert)

VBA-Sortierung einer anderen Mappe

wenn enter bei textbox 1 dann datum in textbox 6

Wenn_dann_Funktion und Textfeld

Wenn Dann Sonst

VBA-Bedingung wenn Tabellenblatt vorhanden

mit VBA prüfen, ob Datei vorhanden

VBA- Code in Formel wandeln

VBA-Projekte bleiben nach schliessen vorhanden

VBA Editor mit anderem Shortcut aufrufen

Wenn Zellinhalt Text dann.., wenn Zahl dann nicht?

Wenn Eintrag in A:A > 50 dann 2 sonst 0

Unterschied zwischen Makros und "Wenn/Dann/Sonst"

WENN-DANN-SONST-FUNKTION

Formel =wenn;dann;sonst

If Prüfung / Zeile vorhanden

Spalte A durchsuchen, wenn dann sonst....

vba: Überprüfung auf vorhandenen Kommentar

Auf ein anders Workbook zugreifen

VBA: Automatische Gross-/Kleinschrift Umwandlung

Problem:WENN(vergleichTab2#NV, dannXX Aber wie?!

VBA-sortieren ja, andere Excel-Versionen nein

wenn berechnung, dann ausgabe in textbox

If Funktion (Excel -> not vba)

Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni

Schleife Notenschlüssel per VBA

VBA: Ziffer in Text umwandeln

VBA: vorhandener Wert suchen.

Gibt es wenn(zwischen(dann,sonst))?????

VBA-Projekt nicht vorhanden

Wenn Text dann rechne, sonst nicht - wie?

mailversand in word über vba

If Or And

2 Dropdownfelder mit wenn, dann, sonst

Wenn Dann Formel Text Durchsuchen

wenn a:a nicht leer dann "|" sonst nichts

VBA in Formel wandeln?

wenn dann sonst

WENN DANN SONST mit ODER

"Wenn Dann" bei Textinhalt

Wenn-Dann-Sonst-Formel

If Not-Formel

VBA aus vorhandener Liste 14 Tage darstellen

Wenn-dann-sonst

VBA Code um Werte zu kopieren, wenn Wert vorhanden

VBA Project vor Vesand löschen

brauche hilfe bei umwandlung von formel in vba

wenn,dann,sonst verschachteln

Wenn-Dann Ausgabe in anderer Zelle?

Wenn Bedingung dann Zelle sonst Datum

Wenn, dann, sonst

Hilfe bei Wenn-Dann-Sonst u. bedigter Formatierung

wenn, dann, sonst - Formel

wenn Zelle in Spalte C leer, dann Text aus D

Wenn-Dann-Sonst Funktion - bitte Hilfe !

wenn Eingabe von Zahl, dann Ausgabe von Text

Uhrzeit-Steuerelement in VBA vorhanden?

Geburtstage - wenn, dann, sonst mache...

Mit VBA vorhandenen Tabellenblattname abfangen

VBA per if-Schleife formatieren

Wenn dann sonst - berechenbare Uhrzeit

Sheets.Add und for...next-Schleife VBA

Ordnerzugriffsberechtigung mit VBA erteilen

Schleife für Formatumwandlung

Wenn dann Formel mit Text

Bedingte Formatierung und "Wenn-Dann-Sonst"-Formel

Excel VBA Funktion auch im WORD vorhanden ???

VBA Download aus Internet / Prüfung ob vorhanden

wenn dann sonst Formelberechnung

VBA "Wenn, dann sonst"

Wenn bestimmtesErgebnis einer Formel dann Text

Wenn --> Dann --> Sonst HILFE

Wenn-dann-sonst

Wenn dann sonst über Zellbereich

VBA-Abfrage ob Notebook in Akku- oder Netzbetrieb

Wenn dann sonst formel

Wenn-Dann Abfrage in der TextBox

Variable Wenn-Dann Abfrage in einer TextBox

Wenn E23 WAHR Dann - Sonst

Abwesenheitsplaner - Wenn/dann/sonst?

wenn Zelle leer dann nichts sonst UserForm

Wenn dann sonst

Wenn Dann, Sonst - Ich kriegs nicht gebacken :(

Per VBA Monitor aus Standby wecken

Excel - VBA: Wenn TXT (etc.) - Datei vorhanden zeige Popup /

VBA - Daten aktualisieren wenn Tabellenblatt vorhanden ist

VBA sporadischer/länderspezifischer Laufzeitfehler 13

Formel und schleife VBA

VBA Formel mit anderen Tabellenblättern

wenn zahl rot, dann Zellwert 1, sonst 0

Wenn Spalte B "Text1" dann Spalte C "Text2&qu

If / If not Abfrage vor speichern

Zellfarbe —> wenn-dann-sonst

wenn Listbox bestimmten Text, dann Datum im TextBox

VBA UserForm CommandButton1 programmieren

VBA Hilfe benötigt - Wert einer bestimmten Zelle ausgeben

VBA Funktion nur aufrufen wenn vorhanden

wenn Text dann 1 wenn 1 dann 0

Wenn dann sonst

Vorhandene Formel in VBA umformen

Wenn Text in Zelle dann anderer Text

Wenn gleiches Datum dann in Text ändern

WENN DANN Abfrage Bereich mit Textwerten

VBA – vorhandenes Makro flexibler machen

VBA Benutzer definierter Zugriff vorgebe

Wenn dann sonst oder So

VBA Schriftfarbe ändern

String aulesen - VBA Wenn Dann Sonst

VBA - Userform Aufruf/Ändern Speichern

WENN leer DANN; SONST

VBA: Schleife für autom. Zuordnung

Schwierigkeiten mit "wenn-dann-sonst"

VBA_IF Anrede Formel Herr/Frau/ ""

WENN W<35 ODER <>X, DANN Y, SONST Z

Wenn WAHR dann Text in Zelle schreiben

VBA if-Formel mit Textbox

if not => ignore

VBA - Dateien vorhanden oder nicht?

WENN DANN SONST

Wenn #NV dann...

Wenn Dann Text aus anderer Zelle

Wenn-Dann-Sonst Formel

VBA Eingabe bei vorhandenem Blattschutz

Wenn-Dann-Sonst Formel

Wenn Dann Sonst mehrere Bedingungen

VBA Formel ändern

Verknüpfen von Funktionen

Suchfunktion via VBA

Versuche in UDF-MatrixFormelFktionalität

code braucht zu lange (wie optimieren)

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

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

Forumthread: If ActiveSheet Is Not Sheets("XXX") Or ActiveSheet

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread