Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug

Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 18:32:07
Michael Kl.
Hallo zusammen.
Ich möchte folgendes Problem lösen:
Wenn die Zelle A1 leer ist, soll der Text z. B. "Leer" in ihr stehen.
Wenn man dann etwas anderes hineinschreibt, soll dies darin stehen.
Wenn ich diesen geschrieben Inhalt wieder lösche, soll die Zelle wieder den Text "Leer" anzeigen.
Habt ihr einen Rat.
Danke schon mal.
MfG, Micha.

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

Betreff
Datum
Anwender
Anzeige
Re: Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 18:56:29
PeterW
Hallo Micha,

per Formel ist das nicht machbar. Kopiere folgenden Code in das Klassenmodul der Tabelle:

Gruß
Peter

Re: Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 19:43:27
Michael Kl.
Hallo Peter.
Mit Klassenmodulen kenne ich mich gar nicht aus.
Habe gerade erst einmal entdeckt, dass es die Möglichkeit gibt, sie über "Extras, Makro, Visual-Basic-Editor" anzulegen.
Kannst du mir die weitere Vorgehensweise näher erklären? Deinen Quelltext habe ich ja, so dass ich ihn mir meinen Bedürfnissen anpassen kann.
Sieht ja ähnlich aus wie ein Makro. Damit habe ich mich zumindest schon mehr beschäftigt. Vielleicht weißt du jetzt, wie mein Kenntnisstand aussieht und kannst mir auf die Sprünge helfen.
Danke schon mal für deine Zeit und Hilfe,
Micha.
Anzeige
Re: Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 19:51:18
PeterW
Hallo Micha,

es ist ein Makro :) nur wird es eben über ein Ereignis in der entsprechenden Tabelle ausgelöst. Im VBA - Editor Doppelklick auf die Tabelle, in der der Code seinen Dienst tun soll, ein neues Fenster geht auf und in dieses Fenster den Code hinein kopieren.

Gruß
Peter

Re: Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 21:43:43
Michael Kl.
Bin´s noch mal Peter.
Bei mir hapert es mit dem Verständnis. Das liegt wohl daran, dass ich bisher Makros per Hand statt mit dem Editor aufgezeichnet habe.
Wenn ich in Excel über "Extras, Makro, Visual-Basic-Editor" den VBA-Editor aufrufe, weiß ich nicht mehr weiter.
Im Editor habe ich über "Einfügen, Klassenmodul" ein Fenster geöffnet, in dem ich den Code abgelegt habe.
Nun stehe ich vor der Frage "Was nun?"
Sorry, wenn mein Problem für dich schon selbstverständlich ist.
Gruß, Micha.
Anzeige
Re: Formel in A1 =wenn(A1="";"leer";A1) =Zirkelbezug
08.10.2002 22:06:07
Boris
Hallo Micha,

öffne mit Alt + F11 den VBA-Editor.
Auf der linken Seite findest du eine Übersicht deiner Arbeitsmappe mit den einzelnen Tabellenblättern.
Doppelklick auf DAS Tabellenblatt, in dem Deine Geschicht mit Zelle A1 abläuft.
Dann öffnet sich rechts ein neues Fenster.
Da kopierst du einfach den Code von peter rein.
Anschließend klickst du den VBA-Editor über das ganz obere rechte Kreuzchen wieder weg.

Gruß Boris

Kann mir jemand ein Beispiel schicken?
08.10.2002 23:05:19
Michael Kl.
Kann mir jemand von euch eine Tabelle mit diesem Beispiel schicken???
Ich kann partout nicht nachvollziehen, wo mein Fehler liegt. Entweder schaffe ich es nicht, dieses Modul richtig zu beenden, oder es funktioniert an sich nicht.
So langsam halte ich mich auch für blöd.
michael.klein@uni.de
Gruß, Micha.
Anzeige
Re: Kann mir jemand ein Beispiel schicken?
08.10.2002 23:25:48
Boris
Hallo Michael,

hab dir ne Mail geschickt.

Hab den Code allerdings verändert:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = "" Then
[a1] = "leer"
End If
End Sub

Gruß Boris

Problem durch Euch gelöst - Danke
09.10.2002 13:29:35
Michael Kl.
Hallo und vielen Dank an alle,
die mir geholfen und ihre Zeit geopfert haben.
Das Beispiel von Boris hat nicht nur funktioniert, sondern hat mir auch geholfen, mit dem VBA-Editor umzugehen.
Ich habe es jetzt geschafft, anhand dieses Beispiels den Code für meinen Fall anzupassen.
Und das Beste ist: Es funktioniert nun alles!
Danke noch mal.
MfG, Michael.
Anzeige

310 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
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
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
Zählen nichtleerer Zellen
Stefan

Hallo zusammen,
ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
04.11.2008 08:20:00
Thread-ID: 1021461
3 Beiträge
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
Hinweis wenn Zellen nicht gefüllt sind
Uwe

Hallo an Alle,
hab dank der Recherche mir folgendes Macro zusammen gestellt....
Sub Uebergeben1() Dim lRow As Long lRow = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row + 1 Worksheets("Tabelle1").Unprotect Worksheets("Tabelle3").Range("C3, C5, C7, C9, C11, C13, C15, C17, C1...
24.11.2008 23:09:00
Thread-ID: 1027522
3 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
5
2
9
2
2
9
10
2
3
3
5
2
7
1
10
23
23
3
6
9
7
4
9