Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kommentar aus Zelleninhalt in anderes Tabellenblatt einfügen
zurück: Formelzeile gibt im Makro Syntaxfehler zurück. weiter: Alles außer Graue Kasten kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
fassi72
Blutiger Anfänger


Verfasst am:
13. Apr 2014, 19:27
Rufname:

Kommentar aus Zelleninhalt in anderes Tabellenblatt einfügen - Kommentar aus Zelleninhalt in anderes Tabellenblatt einfügen

Nach oben
       Version: Office 2003

Hallo,
ich bitte noch mal um Hilfe.
Der gefundene Code fügt ein Kommentar in der gefunden Zelle ein.
Ich möchte aber in "Tabelle 2" nach Zellen suchen die variabel gefüllt sein können.
und den Inhalt der gefunden Zelle dann in "Tabelle 1" in die gleiche Zeile wie gefunden aber in Spalte C als Kommentar einfügen.

Im Code steht auch Bla Bla Bla, dafür bräuchte ich noch den Code zum einfügen des Zelleninhalts als Kommentar

Im vorraus schon mal danke


Code:

Sub suchen()
Sheets("Tabelle2").Activate
For Each zelle In Range("R14:R" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
    If zelle Like "123*" = True Then
        zelle.AddComment
        zelle.Comment.Visible = False
        zelle.Comment.Text Text:= _
            "Bla Bla Bla" & Chr(10) & "Bla bla bla 2" & Chr(10) & "Bla Bla Bla 3" & Chr(10) & "Bla Bla Bla"
    End If
Next
End Sub
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Apr 2014, 23:27
Rufname: Phelan


AW: Kommentar aus Zelleninhalt in anderes Tabellenblatt einf - AW: Kommentar aus Zelleninhalt in anderes Tabellenblatt einf

Nach oben
       Version: Office 2003

Hallo,

Code:
Sub KommentarSetzen_xlph()
    Dim Zelle As Range
   
    With Tabelle2
        For Each Zelle In .Range("R14:R" & .Cells(.Rows.Count, 18).End(xlUp).Row)
            If CStr(Zelle) Like "123*" Then
                With Tabelle1.Cells(Zelle.Row, 3)
                    If Not .Comment Is Nothing Then .Comment.Delete
                    .AddComment Text:=CStr(Zelle.Value)
                    .Comment.Visible = False
                End With
            End If
        Next
    End With
   
    Set Zelle = Nothing

End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Grafik dynamisch einfügen 9 bone 6974 22. Aug 2012, 13:18
Gast Grafik dynamisch einfügen
Keine neuen Beiträge Excel Formeln: Verweis auf Tabellenblatt zusammensetzen 6 markschna 3951 20. Jan 2006, 10:48
markschna Verweis auf Tabellenblatt zusammensetzen
Keine neuen Beiträge Excel Formeln: Dorp-Down-Menü mit Werten aus anderem Tabellenblatt 3 Gast 998 02. Jan 2006, 14:41
Gast Dorp-Down-Menü mit Werten aus anderem Tabellenblatt
Keine neuen Beiträge Excel Formeln: Relativen Bezug auf das vorhergehende Tabellenblatt 3 Taki 1307 29. Dez 2005, 12:43
rainberg Relativen Bezug auf das vorhergehende Tabellenblatt
Keine neuen Beiträge Excel Formeln: Daten aus einer anderen Tabelle einfügen 1 kat 1006 29. Aug 2005, 11:42
steve1da Daten aus einer anderen Tabelle einfügen
Keine neuen Beiträge Excel Formeln: Datum automatisch einfügen lassen ? 5 Olaf 3925 26. Aug 2005, 09:25
KingPing Datum automatisch einfügen lassen ?
Keine neuen Beiträge Excel Formeln: Runden über Tabellenblatt kopieren 2 CK_one_Gast 1489 27. Jul 2005, 10:01
CK_one_Gast Runden über Tabellenblatt kopieren
Keine neuen Beiträge Excel Formeln: KOmmentar übernehmen AXP 0 lilo 891 12. Jul 2005, 14:36
lilo KOmmentar übernehmen AXP
Keine neuen Beiträge Excel Formeln: SVERWEIS auf ein anderes Tabellenblatt? 4 Wandelröschen 1091 06. Jun 2005, 11:12
c0bRa SVERWEIS auf ein anderes Tabellenblatt?
Keine neuen Beiträge Excel Formeln: Zählen wenn nicht leer über ganzes Tabellenblatt 5 musli99 1309 05. Apr 2005, 11:30
Thomas Ramel Zählen wenn nicht leer über ganzes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS??? 4 Julie 1238 18. März 2005, 15:01
Julie Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS???
Keine neuen Beiträge Excel Formeln: Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage 6 original-m 1708 25. Feb 2005, 11:25
Sigrid Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum