Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feld "ROT" ist nicht Leer, dann

Feld "ROT" ist nicht Leer, dann
16.08.2013 11:55:23
Markus
Hallo und Mahlzeit!
Das Feld B5 hat den Namen ROT.
Wenn der Inhalt gewechselt wird (CHANGE) und das Feld einen Inhalt hat,
dann Makro ausführen.
Kann mir jemand helfen, wie der Befehlt heisst und wohin das VBA geschrieben werden muss.
Danke
Markus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feld "ROT" ist nicht Leer, dann
16.08.2013 12:18:35
JACKD
Hallo Markus
der Befehl lautet
worksheet_change(byval Bereich as Range)
(Hier muss jetzt noch dein Code für die definitionen für den Bereich und die Veränderungsbedingungen)
und ich würde es in das Worksheet legen
Grüße

AW: Feld "ROT" ist nicht Leer, dann
16.08.2013 12:57:48
Markus
Hallo und nach der Mahlzeit!
Ja, das begreife ich alles.
Mein Makro funktioniert auch bestens,
ich möchte aber statt B5 mit dem Namen arbeiten! (Name="ROT")
Markus
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B5") Then ' wenn B5 geändert wird, dann
If [B5].Value > "*" Then
MsgBox "Feld ROT hat Inhalt, ROT wird eingeblendet"
rot_einblenden
Else
MsgBox "Feld hat keinen Inhalt"
Exit Sub
End If
End If
End Sub

Anzeige
AW: Feld "ROT" ist nicht Leer, dann
16.08.2013 13:08:57
JACKD
Hallo Markus
Musst mal bissl rumprobieren 
Evaluate(ActiveWorkbook.Names("ROT").Value)
gibt den Wert aus 
ActiveWorkbook.Names("ROT")
gibt dir die Adresse aus
Grüße

AW: Feld "ROT" ist nicht Leer, dann
16.08.2013 13:25:12
JACKD
Wenn dein Code macht was er machen soll, dann passt auch der 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = ThisWorkbook.Worksheets("Tabelle1").Range("ROT") Then
If Evaluate(ActiveWorkbook.Names("ROT").Value) > "*" Then
MsgBox "Feld ROT hat Inhalt, ROT wird eingeblendet"
'rot_einblenden
Else
MsgBox "Feld hat keinen Inhalt"
Exit Sub
End If
End If
End Sub
Allerdings funktioniert das nur dann, wenn "ROT" einen Wert hat, der nicht nochmal eingegeben wird.
(Also auch bei dir)
Sobald eine beliebige Zelle den Wert von B5 bzw. Rot annimmt, startet das Makro
Grüße

Anzeige
Nicht schön
16.08.2013 13:43:52
JACKD
aber selten
Hier mal bissl zusammengefrickelt, damit das Makro nur dann anspringt wenn du konkret nur in der Zelle arbeitest
Private Sub Worksheet_Change(ByVal Target As Range)
Zieladresse = "=Tabelle1!" & Target.Address
If Zieladresse = ActiveWorkbook.Names("ROT") Then
If Evaluate(ActiveWorkbook.Names("ROT").Value) > "*" Then
MsgBox "Feld ROT hat Inhalt, ROT wird eingeblendet"
'rot_einblenden
Else
MsgBox "Feld hat keinen Inhalt"
Exit Sub
End If
End If
End Sub

332 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
Leere zellen nicht leer und Zahlen keine Zahlen
P.Mackes

Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
https://www.herber.de/bbs/user/56887.xls
es tre...
18.11.2008 11:08:00
Thread-ID: 1025551
10 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
text leer nichts machen
Achim

Hallo Excel Freunde
Wer kann doch mal schauen?
Was ist da Falsch? Wenn text box 38kein inhalt hatt soll auch nichts passieren. bekomme aber bei dieser schreibweise einen fehler.
If TextBox48 = "" Then ActiveCell.Offset(0, 6) = CDate(UserFormMitglieder.Frame1.TextBox48.Value) 'Austri...
04.12.2008 14:06:00
Thread-ID: 1030166
6 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
4
2
2
9
10
5
3
7
5
4
9
1
5
3
6
6
7
5
6
5
3
5
7