Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
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
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentare einblenden bei Zelleintrag

Kommentare einblenden bei Zelleintrag
26.08.2005 17:23:21
Uwe
Hallo liebes Forum,
wie lautet der Makro Befehl und in welches Modul muss ich es schreiben?
Ich möchte jedes mal wenn in einem bestimmten Zellenbereich (z.B. von B5:P13)
in eine Zelle ein "x" geschrieben wird das sich das Fenster der "Kommentare" öffnet und ich zu dieser Zelle einen Kommentar schreiben kann.
Wird das "x" aus der Zelle entfernt soll der Kommentar der Zelle automatisch gelöscht werden.
Vielen Dank und schönes Wochenende
Gruß
Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: Kommentare einblenden bei Zelleintrag
26.08.2005 18:12:02
Herbert
hallo Uwe,
probier das...
rechte Maustaste auf Blattregister / Code Anzeigen / reinkopieren...


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:z50]) Is Nothing Then End
On Error Resume Next
With Target
   If .Value = "x" Then
       .AddComment
       .Comment.Visible = True
   Else
      .Comment.Delete
   End If
End With
End Sub

     gruß Herbert
Anzeige
AW: Kommentare einblenden bei Zelleintrag
26.08.2005 18:35:33
f
Hi,
"If Intersect(Target, [a1:z50]) Is Nothing Then End"
Damit zerstörst du alle ggf. vorhanden Public-Variablen. Ein schlichtes Exit Sub
tuts auch, wenn es auch gegen die puristischen Regeln der Programmierung verstößt.
Korrekt wäre: If Not Intersect(Target, [a1:z50]) Is Nothing Then
mfg Fred
AW: Kommentare einblenden bei Zelleintrag
26.08.2005 20:30:50
Siegfried
Hallo Herbert,
habe die Sub in "DieseArbeitsmappe" kopiert ... aber es passiert nicht ... beim Eintragen eines x in eine Zelle des angegebenen Zellbereichs (Blatt "Tabelle1") ...
Was mache ich falsch?
Gruss Siegfried
AW: Kommentare einblenden bei Zelleintrag
26.08.2005 21:08:34
Herbert
hallo Siegried,
im Tabellenblatt rechte Maustaste auf Blattregister / Code Anzeigen
im VB-Editor Doppelklick auf Tabelle
gruß Herbert
Anzeige
AW: Kommentare einblenden bei Zelleintrag
27.08.2005 10:45:43
Siegfried
Hallo Herbert,
danke ...
ich habe mich in dieses Posting gemogelt; aber der Thread interessiert mich ... pardon ...
hatte den Code in "DieseArbeitsmappe" kopiert statt in "Tabelle1" ... nun klappt es.
Was müsste ich ändern, um den Code für alle Tabellen wirksam werden zu lassen?
Gruss Siegfried
AW: Kommentare einblenden bei Zelleintrag
27.08.2005 12:16:05
Herbert
hallo Siegfried,
jetzt kannst du wieder zu "Diese Arbeitsmappe" zurück...
und den Code im Tabellenmodul löschen...
ich habe noch etwas dazu gemacht...
nach dem Bearbeiten des Kommentars ist ja der Kommentar eingeblendet...
will man ihn ausblenden braucht man nur einen Doppelklick in eine Zelle machen...


Option Explicit
'in diese Arbeitsmappe
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a1:z50]) Is Nothing Then Exit Sub
Dim cmt As Comment
Cancel = True
On Error Resume Next
For Each cmt In Sh.Comments
     cmt.Visible = False
Next
Set cmt = Nothing
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [a1:z50]) Is Nothing Then Exit Sub
On Error Resume Next
With Target
   If .Value = "x" Then
       .AddComment
       .Comment.Visible = True
   Else
      .Comment.Delete
   End If
End With
End Sub

     gruß Herbert
Anzeige
AW: Kommentare einblenden bei Zelleintrag
27.08.2005 15:25:38
Siegfried
Hallo Herbert,
genau so habe ichs mir gedacht ... super ... danke!
Schönes Wochenende
bei Sonnenschein und 20°C
Siegfried
AW: Intersect,End
26.08.2005 22:45:21
Herbert
hi Fred,
zu "Intersect": das kann man auf jeden Fall so machen...
zu "End": ist an dieser Stelle natürlich nicht nötig...
außer ich will den Kamin zwischendurch mal kehren...
es kann aber sein, daß ich dann im Kamin ein Loch habe... :-)
gruß Herbert

302 Forumthreads zu ähnlichen Themen

Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Anzeige
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Kommentarinhalt aus Zelle
Stefan

Hallo Forum,
kann ich in einem "Kommentar einfügen" automtisch den inhalt einer zelle anzeigen lassen ?
Beispiel: Ich habe in der Zelle A5 ein Berechnungsergebnis stehen. in Zelle A242 füge ich einen Kommentar ein. In dem Kommentar soll der inhalt der Zelle A5 stehen.
Ich bedanke mi...
01.04.2009 09:39:35
Thread-ID: 1065838
13 Beiträge
Anzeige
Tabellenblatt in Zelle ausgeben
berni

Schönen Abend Excellenzen!
Ich habe heute nachmittags einmal herumprobiert, um den Namen des Tabellenblattes in eine Zelle des jeweiligen Blattes (also: Tabellenname Jänner soll auch dort in A1 stehen) zu bringen.
Hab's mit folgender Formel probiert:
=Rechts(Zelle("Dateiname");Länge...
23.06.2009 17:48:44
Thread-ID: 1083893
4 Beiträge
Ausgewählte Zellen in einer Zelle ausgeben
Neyer

Hallo
Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss
31.07.2009 13:58:16
Thread-ID: 1092754
7 Beiträge
Kommentar in Formel schreiben
MikeM

Hallo zusammen,
ich hab mal wieder eine Frage.
Ich weiß, dass es geht, weil es mir schon mal jemand gezeigt hatte. Allerdings kann ich mich nicht mehr daran erinnern.
Und zwar möchte ich einen Kommentar in eine Formel einfügen, z.B.
A1=15(Vorjahr)+C4(aktueller Wert)
In diese...
22.10.2009 09:23:58
Thread-ID: 1111259
3 Beiträge
Zelle finden mit Zelladresse und Kommentar eintr.
Constantin

Hallo,
ich habe eine Exceldatei mit Tabelle1 und Tabelle2. In Tabelle1 steht in Spalte A ein Text und in Spalte B jeweils eine Zelladresse. Die Tabelle1 hat mehrere Zeilen dieser Art. Alle Zelladressen beziehen sich auf Tabelle2.
Mit welchem VBA-Befehl kann ich die Zelle mit obiger Zel...
29.10.2009 22:41:10
Thread-ID: 1113198
3 Beiträge
Kommentare suchen und "K" in Zelle schreiben
Markus

Hallo,
leider habe ich im Archiv nix gefunden, was mir weiterhelfen könnte.
Ich habe eine Grosse Tabelle mit ca. 6000 Artikeln.
Ab Spalte B bis Spalte F stehen in diverse Zellen Kommentar.
Gibt es eine Möglichkeit, nach Kommentaren von B bis F nach Kommentaren zu suchen.
Exc...
09.11.2009 10:01:06
Thread-ID: 1115462
2 Beiträge
Anzeige

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
5
2
1
12
1
3
6
2
2
1
4
3
2
1
4
2
4
9
3
3
1
4
1
9
4