Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
892to896
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
892to896
892to896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte in Kommentare umwandeln und dann...?

Zelleninhalte in Kommentare umwandeln und dann...?
31.07.2007 20:56:20
Selma
Hallo Leute,
ich möchte gern per VBA in Spalte Z ab Zeile 2 bis letzte Zellen mit Inhalt (bezogen auf Spalte Z) die Zelleninhalte (nur wenn Inhalt vorhanden ist) in Kommentare umwandeln.
Danach soll in Zellen (nur bei umgewandelten) der Text "siehe Kommentar" eingetragen werden.
Die Kommentare sollen in Schriftgröße 12 und mit automatische Größe (.AutoSize = True) dargestellt werden.
Wie mache ich das ?
Vielen Dank im Voraus.
Liebe Grüße
Selma

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
31.07.2007 21:51:43
Beverly
Hi Selma,
versuche es mit diiesem Code

Sub kommentare_einfuegen()
Dim loZeile As Long
Dim coKommentar As Comment
Dim strText As String
For loZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 26)), Cells(Rows.Count, 26).End(xlUp).Row,  _
Rows.Count)
If Cells(loZeile, 26)  "" Then
strText = Cells(loZeile, 26)
Cells(loZeile, 26).AddComment strText
Set coKommentar = Cells(loZeile, 26).Comment
With coKommentar.Shape
With .DrawingObject.Font
.Size = 12
.FontStyle = "Arial"
End With
.OLEFormat.Object.AutoSize = True
End With
Cells(loZeile, 26) = "siehe Kommentar"
End If
Next loZeile
Set coKommentar = Nothing
End Sub


________________________________________

Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
31.07.2007 22:02:00
Selma
Hallo Karin,
das Makro bleibt hier "Cells(loZeile, 26).AddComment strText" stehen.
LG
Selma

AW: Zelleninhalte in Kommentare umwandeln und dann
31.07.2007 22:55:49
Ramses
Hallo
probiers mal damit
Option Explicit

Sub SetValue_to_Comment()
    Dim lastRow As Long, suchCol As Integer
    Dim myCom As Object
    Dim comTip As String
    Dim comSet As Boolean
    '******************
    'Variablen
    comTip = "Siehe Kommentar"
    suchCol = 26
    '******************
    For lastRow = 2 To Cells(Rows.Count, suchCol).End(xlUp).Row
        comSet = False
        With Cells(lastRow, suchCol)
            If .Value <> "" And UCase(.Value) <> UCase(comTip) And .Comment Is Nothing Then
                .AddComment
                .Comment.Text Text:="" & .Value & ""
                .Value = comTip
                comSet = True
            Else
                If .Value <> "" And UCase(.Value) <> UCase(comTip) Then
                    .Comment.Text Text:="" & .Value & ""
                    .Value = comTip
                    comSet = True
                End If
            End If
            If comSet = True Then
                Set myCom = Cells(lastRow, suchCol).Comment.Shape
                With myCom
                    With .DrawingObject.Font
                        .Size = 12
                        .FontStyle = "Arial"
                    End With
                    .OLEFormat.Object.AutoSize = True
                End With
            End If
        End With
    Next lastRow
    Set myCom = Nothing
End Sub

Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
31.07.2007 23:44:40
Selma
Hallo Rainer,
vielen Dank es funktioniert prima....
Eine Frage noch:
wenn ich das Makro NUR auf die markierten Zellenbereich anwenden möchte, was muss noch geändert werden? Geht das überhaupt?
Liebe Grüße
Selma

AW: Zelleninhalte in Kommentare umwandeln und dann
01.08.2007 00:09:35
Ramses
Hallo
Du solltest dir vorher den Inhalt deiner Frage überlegen und nicht anschliessend die Anforderung ändern :-)
Hier "AllInclusive":
Option Explicit

Sub SetValue_to_Comment_in_free_Selection()
    Dim myC As Range, suchCol As Integer, lastRow As Long
    Dim myCom As Object
    Dim comTip As String
    Dim comSet As Boolean
    Dim Qe As Integer
    '******************
    'Variablen
    comTip = "Siehe Kommentar"
    suchCol = 2
    '******************
    If Selection.Cells.Count >= 1 Then
        Qe = MsgBox("Möchten Sie Werte aus dem selektierten Bereich:" & vbCrLf & _
        Selection.Address & vbCrLf & _
        "ersetzen, oder die Daten in der Spalte: " & vbCrLf & _
        "" & Columns(suchCol).Address & "" & vbCrLf & _
        "umwandeln ?" & vbCrLf & _
        "Ausgewählten Bereich """ & Selection.Address & """ umwandeln = ""JA""" & vbCrLf & _
        "Spalte """ & Columns(suchCol).Address & " "" umwandeln = ""NEIN""", vbQuestion + vbYesNoCancel + vbDefaultButton1, _
        "Zellwerte in Kommentare umwandeln")
            If Qe = vbCancel Then Exit Sub
        If Qe = vbNo Then
            For lastRow = 2 To Cells(Rows.Count, suchCol).End(xlUp).Row
                comSet = False
                With Cells(lastRow, suchCol)
                    If .Value <> "" And UCase(.Value) <> UCase(comTip) Then
                        If .Comment Is Nothing Then
                            .AddComment
                        End If
                        .Comment.Text Text:="" & .Value & ""
                        .Value = comTip
                        comSet = True
                    End If
                    If comSet = True Then
                        Set myCom = Cells(lastRow, suchCol).Comment.Shape
                        With myCom
                            With .DrawingObject.Font
                                .Size = 12
                                .FontStyle = "Arial"
                            End With
                            .OLEFormat.Object.AutoSize = True
                        End With
                    End If
                End With
            Next lastRow
        Else
            For Each myC In Selection
                comSet = False
                With myC
                    If .Value <> "" And UCase(.Value) <> UCase(comTip) Then
                        If .Comment Is Nothing Then
                            .AddComment
                        End If
                        .Comment.Text Text:="" & .Value & ""
                        .Value = comTip
                        comSet = True
                    End If
                    If comSet = True Then
                        Set myCom = myC.Comment.Shape
                        With myCom
                            With .DrawingObject.Font
                                .Size = 12
                                .FontStyle = "Arial"
                            End With
                            .OLEFormat.Object.AutoSize = True
                        End With
                    End If
                End With
            Next myC
        End If
    End If
    Set myCom = Nothing
    Set myC = Nothing
End Sub

Gruss Rainer

Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
01.08.2007 00:27:07
Selma
Hallo Rainer,
vielen vielen Dank für Deine Hilfe....
Ich wünsche Dir eine gute Nacht....
Liebe Grüße
Selma

Etwas verkürzt...
31.07.2007 23:46:00
Ramses
Hallo
Nimm diese Variante.
Eine Abfrage war überflüssig
Option Explicit

Sub SetValue_to_Comment()
    Dim lastRow As Long, suchCol As Integer
    Dim myCom As Object
    Dim comTip As String
    Dim comSet As Boolean
    '******************
    'Variablen
    comTip = "Siehe Kommentar"
    suchCol = 2
    '******************
    For lastRow = 2 To Cells(Rows.Count, suchCol).End(xlUp).Row
        comSet = False
        With Cells(lastRow, suchCol)
            If .Value <> "" And UCase(.Value) <> UCase(comTip) Then
                If .Comment Is Nothing Then
                    .AddComment
                End If
                .Comment.Text Text:="" & .Value & ""
                .Value = comTip
                comSet = True
            End If
            If comSet = True Then
                Set myCom = Cells(lastRow, suchCol).Comment.Shape
                With myCom
                    With .DrawingObject.Font
                        .Size = 12
                        .FontStyle = "Arial"
                    End With
                    .OLEFormat.Object.AutoSize = True
                End With
            End If
        End With
    Next lastRow
    Set myCom = Nothing
End Sub

Gruss Rainer

Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
01.08.2007 05:46:00
Beverly
Hi Selma,
du hattest nichts davon geschrieben, dass in manchen Zellen schon Kommentare stehen

Sub kommentare_einfuegen()
Dim loZeile As Long
Dim coKommentar As Comment
Dim strText As String
For loZeile = 2 To IIf(IsEmpty(Cells(Rows.Count, 26)), Cells(Rows.Count, 26).End(xlUp).Row,  _
Rows.Count)
If Cells(loZeile, 26)  "" Then
If Cells(loZeile, 26).Comment Is Nothing Then
strText = Cells(loZeile, 26)
Cells(loZeile, 26).AddComment strText
Set coKommentar = Cells(loZeile, 26).Comment
With coKommentar.Shape
With .DrawingObject.Font
.Size = 12
.FontStyle = "Arial"
End With
.OLEFormat.Object.AutoSize = True
End With
Cells(loZeile, 26) = "siehe Kommentar"
End If
End If
Next loZeile
Set coKommentar = Nothing
End Sub


Bis später,
Karin

Anzeige
AW: Zelleninhalte in Kommentare umwandeln und dann
01.08.2007 09:54:00
Selma
Vielen Dank Karin.
Liebe Grüße
Selma

306 Forumthreads zu ähnlichen Themen

Spalten als Text formatieren
Steffen

Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen
15.09.2008 09:49:00
Thread-ID: 1009678
7 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 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
6
5
5
3
3
20
4
7
2
3
2
14
3
1
10
15
3
4
4
2
5
16
17
5
1