Datum

Titel

09.05.2024 19:15:00

speichern über Makro ändert bedingt formatierte Zellen

09.05.2024 15:49:16

OEE Verlust als Linie an OEE

09.05.2024 13:10:18

Pivot-Tabelle mit Monaten und nicht Tagen

09.05.2024 11:36:45

workbook schließen ohne abfrage

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1112to1116

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

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

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

If ActiveCell.Value <> "" Then

Forumthread: If ActiveCell.Value <> "" Then
12 Beiträge zu diesem Forumthread
Anzeige
46 Threads zu ähnlichen Themen
Top 100 Forumthreads

serge

Hallo Leute
ich möchte dass mein Makro erkennt das in den angepeilten Zellen etwas ist und wenn ja abbrecht!
mit:


Sub löschen()
Range("a5:a11").Select
If ActiveCell.Value  "" Then
MsgBox ("Sie müssen den bestehenden Termin zuerstz löschen!")
Else
Selection.ClearContents
Selection.UnMerge
End If
End Sub

erkennt er nur die cctive Zelle dh. A5!
Anbei mein Beispiel: https://www.herber.de/bbs/user/65583.xls
danke Serge

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

If Selection.Areas.Count <> "" Then

serge
Zu früh gefreut!

serge
Zu früh gefreut!

serge
AW: Zu früh gefreut!

fcs
geht auch!

serge
wo ist der Sinn?

Rudi
AW: wo ist der Sinn?

serge
versteh ich nicht...

robert
AW: versteh ich nicht...

serge
OK, wenn es für dich so passt..owT-Gruß

robert
Bereich löschen..

robert
Rudi hat mein Anliegen gelöst! owT.

serge

If Selection.Areas.Count <> "" Then

04.11.2009 10:25:08

serge

Mit dem geht es !
oder ist da ein Hacken den ich nicht kenne?
Serge

Zu früh gefreut!

04.11.2009 10:28:55

serge

Es klappt nicht
serge

Zu früh gefreut!

04.11.2009 10:28:55

serge

Es klappt nicht
serge

AW: Zu früh gefreut!

04.11.2009 10:46:22

fcs

Hallo Serge,
ein entsprechendes Makro, das einen Zellebereich auf Inhalte prüft, sieht etwa wie folgt aus.
Dabei kannst du dir das ClearContents sparen, da ja alle Zellen auf leer geprüft werden.
Nur das "UnMerge" ist relevant, um ggf. die Verbindung von Zellen aufzuheben.
Gruß
Franz

Sub löschen()
Dim Zelle As Range, bolLoeschen As Boolean
Range("a5:a11").Select
bolLoeschen = True
For Each Zelle In Selection
If Zelle.Value  "" Then
MsgBox ("Sie müssen den bestehenden Termin zuerstz löschen!")
bolLoeschen = False
Exit For
End If
Next
If bolLoeschen = True Then
Selection.ClearContents
Selection.UnMerge
End If
End Sub

geht auch!

04.11.2009 10:57:21

serge

Hallo
dein Vorschlag klappt auch, aber den von Rudi ist für mein anliegen kürzer!
Danke
Serge

wo ist der Sinn?

04.11.2009 10:38:33

Rudi

Hallo,
man muss erst von Hand löschen, bevor das Makro löschen darf?
Versuchs mit
if application.counta(Range("A5:A11"))>0 then ...
Gruß
Rudi

AW: wo ist der Sinn?

04.11.2009 10:48:38

serge

Hallo Rudi
dein Vorschlag klappt wie ich es brauche!
Danke
Zum Sinn:
mit meinem Makro (viel grösser erstelle ich Termine mit Zellverbindung, sollte der Bereich irgendwie belegt sein, muss er zuerst gelöscht werden!
Es ist ein Hinweis das man den Bereich nicht doppelt belegen kann.
Danke Serge

versteh ich nicht...

04.11.2009 10:55:19

robert

hi,
rudis lösung ist doch immer größer 0
was funktioniert da ?
oder steh ich am schlauch ?
gruß
robert

AW: versteh ich nicht...

04.11.2009 11:04:07

serge

Zum Sinn:
mit meinem Makro (viel grösser) erstelle ich Termine mit Zellverbindung (Zelle werden mit dem Cursor angeklickt dann wird das Makro aufgerufen) , sollte der Bereich irgendwie oder mit irgendetwas belegt sein, muss er zuerst manuel (sprich: mit einem anderen Makro) gelöscht werden!
Es ist ein Hinweis das man den Bereich nicht doppelt belegen kann.
serge

OK, wenn es für dich so passt..owT-Gruß

04.11.2009 11:10:00

robert

Bereich löschen..

04.11.2009 10:39:59

robert

hi,
willst du grundsätzlich den bereich a5:a11 löschen ?
dann Range("A5:A11").Clearcontents
oder willst du was anderes?
gruß
robert

Rudi hat mein Anliegen gelöst! owT.

04.11.2009 10:50:04

serge

Danke
serge

46 Forumthreads zu ähnlichen Themen

VBA-Problem Change-Event/UDF/Gültigkeit

Erich

Hallo zusammen,
Markus hat in https://www.herber.de/forum/archiv/1012to1016/t1013729.htm ein IMHO interessantes Problem gepostet.
Da der Thread jetzt bald ins Archiv wandert, wir aber noch keine Erklärung gefunden haben,
stelle ich die Frage hier nochmal ein.
In der Beispielmapp...

05.10.2008 11:52:00

Thread-ID: 1014215

2 Beiträge

If CheckBox5.Value = Checked Then

Raphael

Hallo zusammen,
ich habe das Problem das ich bei der Betätigung meiner CheckBox5 die Fehlermeldung "Object required" erhalte.
Ich möchte hinter diese CheckBox eine If Formel bauen, das bedeutet wenn sie checked ist, soll etwas gemacht werden, und wenn sie uncheckt ist was anderes,
D...

10.03.2010 15:19:30

Thread-ID: 1144893

7 Beiträge

Change event von ComboBox wird beim Starten ausgef

ComboBox

Hallo,
In meinem VBA Skrip funktioniert alles soweit, bis auf das Starten von der *.xlsm Datei.
Es sieht so aus, als wenn das Change Event der benutzten Combobox noch bevor das Woorkbook_Open Event ausgeführt wird. Und das führt zu einem Fehler.
Auszug aus dem Programm:
Private...

16.03.2016 17:31:13

Thread-ID: 1482420

11 Beiträge

Change-Event von ComboBox bei Shift+F9

Matthias

Hallo zusammen,ich habe folgendes Problem:
auf einem Sheet habe ich zwei Comboxboxen, wobei die Auswahl
der einen ComboBox abhängig ist von der anderen.
Über den Change-Event wird die andere Box befüllt.Nun ist es so, wenn ich auf dem Sheet Shift+F9 drücke, wird
der Change-Event all...

24.08.2002 13:25:37

Thread-ID: 152238

7 Beiträge

VBA: Textbox mit Change-Event dynamisch erstellen

Bernd

Servus zusammen,
eine Frage an die Profis:
Kann ich bei der Initialisierung einer Userform TextBoxen erstellen und dahinter auch gleich das Change-Event per Makrocode hinterlegen? Der zu hinterlegende Code ist immer gleich.
Ich lasse per Schleife meine Userform dynamisch mit TextBox...

24.03.2017 14:08:18

Thread-ID: 1549313

4 Beiträge

If ComboBox.Text.... Then... funktioniert nicht

Zoe

Hallo,
ich habe eine UserForm, die meine Tabelle füllt, jetzt möchte ich wenn die ComboBox etwas bestimmtes (Deloro 5879.1116 - HBW 2.5/62,5) enthält, dass drei Zellen (erste freie Zeile in H + I + J) bestimmte Werte zugewiesen werden. Habe es mit einer IF-Funtkion probiert, aber das klappt...

01.06.2017 13:19:07

Thread-ID: 1561693

7 Beiträge

excel vba change event deaktivieren

Matthias

Hallo Excel Profis,
ich habe da wieder mal ein Problem
ich möchte gezielt das Ereignis Change deaktivieren. Die anderen Ereignisse sollen weiterlaufen wie z.B. Before Double Click.
Ist das möglich?
Der Befehl "Application.EnableEvents = False" deaktiviert alle Ereignisse.

13.07.2017 21:50:56

Thread-ID: 1569109

3 Beiträge

if value = x AND value = y ... then...(überprüfen)

soendi

Hallo miteinander!
kann mir einer sagen, was ich falsch mache?
funktion die zu erreichen wäre, ist wenn zelle A1 = "XXX" UND zelle B1 = "" dann soll die ganze zeile gelöscht werden. tuts aber nicht. :(
danke schon mal im voraus für die vielen und schnellen antworten!

For le...

28.05.2004 18:40:03

Thread-ID: 434780

4 Beiträge

Alle verwandten Forumthreads anzeigen

VBA: Textbox mit Change-Event dynamisch erstellen

If ComboBox.Text.... Then... funktioniert nicht

excel vba change event deaktivieren

if value = x AND value = y ... then...(überprüfen

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If ActiveSheet.Value = True Then

If ActiveCell.Offset(0, 1).Value = "30" Then .....

If A2:D34.Value = "" then "."

VBA UserForm - ComboBox Wert in Tabelle

Excel VBA UserForm ComboBox dyn. füllen

If CheckBox5.Value = Checked Then

If ComboBox.Text.... Then... funktioniert nicht

if value = x AND value = y ... then...(überprüfen

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If ActiveSheet.Value = True Then

If ActiveCell.Offset(0, 1).Value = "30" Then .....

If A2:D34.Value = "" then "."

If CheckBox5.Value = Checked Then

If ComboBox.Text.... Then... funktioniert nicht

if value = x AND value = y ... then...(überprüfen

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If ActiveSheet.Value = True Then

If ActiveCell.Offset(0, 1).Value = "30" Then .....

If A2:D34.Value = "" then "."

MatchRequired-Eigenschaft Combobox ?

If CheckBox5.Value = Checked Then

If ComboBox.Text.... Then... funktioniert nicht

MatchRequired True in ComboBox und die Entf-Taste

if value = x AND value = y ... then...(überprüfen

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If ActiveSheet.Value = True Then

If ActiveCell.Offset(0, 1).Value = "30" Then .....

If A2:D34.Value = "" then "."

If CheckBox5.Value = Checked Then

If ComboBox.Text.... Then... funktioniert nicht

if value = x AND value = y ... then...(überprüfen

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If ActiveSheet.Value = True Then

If ActiveCell.Offset(0, 1).Value = "30" Then .....

If A2:D34.Value = "" then "."

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

34602
zelle färben wenn andere zelle wert

24190
excel text links von zeichen

17467

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

16532

formeln kopieren ohne anpassung der zellbezüge

15607

scrollen in excel nicht möglich

15566

excel formel enthält

14857

excel wenn wert in zelle dann andere zelle kopieren

12643

excel ab bestimmten zeichen abschneiden

12125

excel erste ziffer entfernen

11831

excel zelle farbig wenn andere zelle text

11285

excel summe zeigt 0

10923

excel links zeichen abschneiden

9962

excel string enthält teilstring

9898

zählenwenns mit oder

9602

excel wenn leer dann leer lassen

9054

excel teil bis leerzeichen

8949

excel vba variable in zelle schreiben

8899

zählenwenn datumsbereich

8775

excel formel doppelte werte nur einmal zählen

8527

excel zelleninhalt in andere zelle übernehmen

8041

excel text ab bestimmten zeichen

7992

excel formel rechts ab zeichen

7974

excel datum und uhrzeit in einer zelle

7796

wenn wert größer als und kleiner als dann

7700

letzte zeile vba

7657

excel umrechnung minuten in stunden

7549

excel zelleninhalt ausblenden wenn

7395

excel zellen ausblenden button

7213

cursor kreuz statt pfeil

7209

excel aus kalenderwoche monat ermitteln

6903

excel wenn datum älter als dann rot

6866

excel summewenn nicht

6579

excel vba zellinhalt löschen

6513

excel wenn wert negativ dann 0

6446

excel daten untereinander statt nebeneinander

6316

excel wenn wert in liste vorhanden dann

6298

excel nur letzten 4 zeichen einer zelle

6126

wenn formel mit uhrzeit

6090

sverweis summe aller werte

6030

excel nur das erste wort einer zelle

6010

wenn mehrere zellen leer dann

5872

excel shortcut blatt wechseln

5837

excel zahlen fortlaufend funktioniert nicht

5828

excel letzten buchstaben entfernen

5792

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5766

zelle färben, wenn andere zelle wert

5730

excel wenn zelle leer dann wert aus anderer zelle sonst

5624

@ in excel formel

5624

excel uhrzeit minuten addieren

5604

excel wort in zelle suchen und ausgeben

5581

excel vba suchen und anzeigen

5567

excel führende nullen entfernen formel

5533

excel summewenns über mehrere spalten

5425

excel vba zellfarbe ändern

5257

wenn farbe dann

5250

sverweis nicht gefunden dann 0

5209

excel formel anführungszeichen

5206

zählen wenn nicht leer

5196

excel vba abfrage ja nein

5191

excel summewenn ungleich

5037

excel aus namen e mail adresse

5019

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4987

buchstaben aus excel zelle entfernen

4961

excel datum + monate

4898

excel summe zwischen zwei datumsangaben

4831

excel string enthält teilstring

4817

vba mit passwort schützen

4783

excel zeichen finden von rechts

4760

excel zählen wenn enthält

4731

excel datumsformat lässt sich nicht ändern

4709

excel liniendiagramm mit mehreren linien

4693

excel bildgröße an zelle anpassen

4670

vba if or mehrere bedingungen

4666

text aus anderer zelle übernehmen excel

4662

punkte entfernen excel

4644

makro stoppen

4627

excel erste vier zeichen löschen

4597

excel spaltennummer ermitteln in der ein wert steht

4577

excel wert in spalte suchen und zeile ausgeben

4571

excel als text gespeicherte zahl in zahl umwandeln vba

4545

zeilenumbruch excel vba

4543

excel tabelle kopieren ohne inhalt

4510

excel datum automatisch einfügen bei eingabe

4431

excel summe und runden in einer zelle

4402

excel aktuelle zeit

4394

excel vba prüfen ob tabellenblatt existiert

4393

excel vba verweis auf zelle anderes tabellenblatt

4303

excel gruppen benennen

4298

excel blattschutz filtern erlauben

4278

vba excel userform schließen

4263

excel kalenderwochen in datum umwandeln

4249

excel verketten mit datum

4224

excel umbruchvorschau ausblenden

4208

excel gruppieren geht nicht

4192

vba zeilenumbruch

4175

durchschnitt aus prozentwerten

4167

wenn dropdown auswahl dann wert

4110

wenn funktion zu viele argumente

4091

excel wenn dann funktion mehrere zellen

4076

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn(finden dann)

34602
zelle färben wenn andere zelle wert

24190
excel text links von zeichen

17467

Weitere Forumthreads anzeigen

excel zeichen einfügen am anfang

16532

formeln kopieren ohne anpassung der zellbezüge

15607

scrollen in excel nicht möglich

15566

excel formel enthält

14857

excel wenn wert in zelle dann andere zelle kopieren

12643

excel ab bestimmten zeichen abschneiden

12125

excel erste ziffer entfernen

11831

excel zelle farbig wenn andere zelle text

11285

excel summe zeigt 0

10923

excel links zeichen abschneiden

9962

excel string enthält teilstring

9898

zählenwenns mit oder

9602

excel wenn leer dann leer lassen

9054

excel teil bis leerzeichen

8949

excel vba variable in zelle schreiben

8899

zählenwenn datumsbereich

8775

excel formel doppelte werte nur einmal zählen

8527

excel zelleninhalt in andere zelle übernehmen

8041

excel text ab bestimmten zeichen

7992

excel formel rechts ab zeichen

7974

excel datum und uhrzeit in einer zelle

7796

wenn wert größer als und kleiner als dann

7700

letzte zeile vba

7657

excel umrechnung minuten in stunden

7549

excel zelleninhalt ausblenden wenn

7395

excel zellen ausblenden button

7213

cursor kreuz statt pfeil

7209

excel aus kalenderwoche monat ermitteln

6903

excel wenn datum älter als dann rot

6866

excel summewenn nicht

6579

excel vba zellinhalt löschen

6513

excel wenn wert negativ dann 0

6446

excel daten untereinander statt nebeneinander

6316

excel wenn wert in liste vorhanden dann

6298

excel nur letzten 4 zeichen einer zelle

6126

wenn formel mit uhrzeit

6090

sverweis summe aller werte

6030

excel nur das erste wort einer zelle

6010

wenn mehrere zellen leer dann

5872

excel shortcut blatt wechseln

5837

excel zahlen fortlaufend funktioniert nicht

5828

excel letzten buchstaben entfernen

5792

excel datei durch mich selbst gesperrt obwohl nicht geöffnet

5766

zelle färben, wenn andere zelle wert

5730

excel wenn zelle leer dann wert aus anderer zelle sonst

5624

@ in excel formel

5624

excel uhrzeit minuten addieren

5604

excel wort in zelle suchen und ausgeben

5581

excel vba suchen und anzeigen

5567

excel führende nullen entfernen formel

5533

excel summewenns über mehrere spalten

5425

excel vba zellfarbe ändern

5257

wenn farbe dann

5250

sverweis nicht gefunden dann 0

5209

excel formel anführungszeichen

5206

zählen wenn nicht leer

5196

excel vba abfrage ja nein

5191

excel summewenn ungleich

5037

excel aus namen e mail adresse

5019

excel wert aus anderer zelle übernehmen wenn bedingung erfüllt

4987

buchstaben aus excel zelle entfernen

4961

excel datum + monate

4898

excel summe zwischen zwei datumsangaben

4831

excel string enthält teilstring

4817

vba mit passwort schützen

4783

excel zeichen finden von rechts

4760

excel zählen wenn enthält

4731

excel datumsformat lässt sich nicht ändern

4709

excel liniendiagramm mit mehreren linien

4693

excel bildgröße an zelle anpassen

4670

vba if or mehrere bedingungen

4666

text aus anderer zelle übernehmen excel

4662

punkte entfernen excel

4644

makro stoppen

4627

excel erste vier zeichen löschen

4597

excel spaltennummer ermitteln in der ein wert steht

4577

excel wert in spalte suchen und zeile ausgeben

4571

excel als text gespeicherte zahl in zahl umwandeln vba

4545

zeilenumbruch excel vba

4543

excel tabelle kopieren ohne inhalt

4510

excel datum automatisch einfügen bei eingabe

4431

excel summe und runden in einer zelle

4402

excel aktuelle zeit

4394

excel vba prüfen ob tabellenblatt existiert

4393

excel vba verweis auf zelle anderes tabellenblatt

4303

excel gruppen benennen

4298

excel blattschutz filtern erlauben

4278

vba excel userform schließen

4263

excel kalenderwochen in datum umwandeln

4249

excel verketten mit datum

4224

excel umbruchvorschau ausblenden

4208

excel gruppieren geht nicht

4192

vba zeilenumbruch

4175

durchschnitt aus prozentwerten

4167

wenn dropdown auswahl dann wert

4110

wenn funktion zu viele argumente

4091

excel wenn dann funktion mehrere zellen

4076

Archiv - Verwandte Themen

Forumthread

Beiträge

vba-problem change-event/udf/gültigkeit

vba calculate/change event

if checkbox5.value = checked then

change event von combobox wird beim starten ausgef

vba userform combobox werte aus jeder tabelle

change-event von combobox bei shift+f9

vba: textbox mit change-event dynamisch erstellen

if combobox.text.... then... funktioniert nicht

excel vba change event deaktivieren

if value = x and value = y ... then...(überprüfen

if textbox1.value = "xy" then set combobox3.value

if activesheet.value = true then

if activecell.offset(0, 1).value = "30" then .....

if a2:d34.value = "" then "."

vba userform - combobox wert in tabelle

excel vba userform combobox dyn. füllen

if checkbox5.value = checked then

if combobox.text.... then... funktioniert nicht

if value = x and value = y ... then...(überprüfen

if textbox1.value = "xy" then set combobox3.value

if activesheet.value = true then

if activecell.offset(0, 1).value = "30" then .....

if a2:d34.value = "" then "."

if checkbox5.value = checked then

if combobox.text.... then... funktioniert nicht

If ActiveCell.Value <> "" Then

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

46 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread