Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentar per VBA in eine Zelle schreiben

Forumthread: Kommentar per VBA in eine Zelle schreiben

Kommentar per VBA in eine Zelle schreiben
27.11.2015 22:09:11
Lukas
Hallo zusammen,
ich habe eine Excel-Mappe die aus mehreren Tabellenreitern besteht. Ich habe euch mal eine vereinfachte Version angehängt.
Ein Tabellenreiter "Übersicht" fasst quasi den Umsatz nach Segmenten für die einzelnen Quartale zusammen.
in den anderen Tabellenreitern, die jeweils den Namen des Segmentes haben, enthalten eine örtliche Angabe (Bundesländer) des Umsatzes. Dort steht einfach nur drin, wo der Umsatz erfolgte.
Ich würde nun gerne in jeder Zelle des Reiters "Übersicht", wo eine Zahl drin steht, ein Kommentar eingefügt bekommen, in dem drin steht wie sich der Betrag auf die Bundesländer aufteilt.
Händisch würde das enorm fiel Zeit in Anspruch nehmen. Leider kenne ich mich mit VBA nur sehr schlecht aus. Kann mir da jemand helfen, wie ich das mit VBA quasi automatisch erledigen kann?
Schön wäre, wenn der Umsatz eines Bundeslandes null beträgt, diese Angabe im Kommentar nicht erscheint und wenn unter "Baden-Würtemberg" ein oder zwei weitere Bundesländer hinzugefügt werden, diese dann auch im Kommentar erscheinen.
Beispiel:
im Tabllenreiter Übersicht sollte in Zelle D3 folgender Kommentar erscheinen:
- Berlin: 121,91 €
- Nordrhein-Westfalen 672,15 €
- Baden-Würtemberg 595,75 €
Vielen Dank schon mal, für jede Hilfe
https://www.herber.de/bbs/user/101857.xlsx

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar per VBA in eine Zelle schreiben
27.11.2015 22:19:30
Sepp
Hallo Lukas,
und wie kommen deine Daten in die Tabelle Zusammenfassung? Per VBA? Dann solltest du den Code zeigen.
Gruß Sepp

AW: Kommentar per VBA in eine Zelle schreiben
27.11.2015 22:39:29
Lukas
Hallo Sepp,
In welche Tabelle "Zusammenfassung"? Meinst du "Übersicht"? Die werden in er Original-Datei über ein Add-In per EPM aus einer Datenbank eingelesen. Da muss man nur die Dimensionen (Konto und Zeit) in der Zeile bzw. Spalte eingeben und dann findet Excel die Zahlenwerte automatisch.
Gruß

Anzeige
AW: Kommentar per VBA in eine Zelle schreiben
27.11.2015 23:20:51
Sepp
Hallo Lukas,
für deine Beispieldatei.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Kommentare()
Dim rng As Range, rngI As Range
Dim objSh As Worksheet
Dim varRet As Variant
Dim lngRow As Long, lngC As Long
Dim strComment As String

With Sheets("Übersicht")
  Set rng = .Range("B3:B" & Application.Max(3, .Cells(.Rows.Count, 2).End(xlUp).Row))
  .Cells.ClearComments
  For Each rngI In rng
    If SheetExist(rngI.Text) Then
      Set objSh = Sheets(rngI.Text)
      For lngC = 4 To Application.Max(4, .Cells(2, .Columns.Count).End(xlToLeft).Column)
        varRet = Application.Match(.Cells(2, lngC), objSh.Rows(2), 0)
        If IsNumeric(varRet) Then
          strComment = ""
          For lngRow = 5 To Application.Max(5, objSh.Cells(.Rows.Count, 4).End(xlUp).Row)
            If objSh.Cells(lngRow, 4) <> "" Then
              If objSh.Cells(lngRow, varRet) <> "" Then
                If IsNumeric(objSh.Cells(lngRow, varRet)) Then
                  strComment = strComment & objSh.Cells(lngRow, 4) & String(30 - _
                    Len(objSh.Cells(lngRow, 4)) - Len(Format(objSh.Cells(lngRow, varRet), "0.00")), _
                    " ") & Format(objSh.Cells(lngRow, varRet), "0.00") & vbCrLf
                End If
              End If
            End If
          Next
          strComment = strComment & "Gesamt" & String(24 - Len(Format(objSh.Cells(3, varRet), _
            "0.00")), " ") & Format(objSh.Cells(3, varRet), "0.00")
          .Cells(rngI.Row, lngC).AddComment strComment
          .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.Characters.Font.Size = 10
          .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.Characters.Font.Name = _
            "Lucida Sans Typewriter"
          .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.AutoSize = True
        End If
      Next
    End If
  Next
End With

Set rng = Nothing
Set objSh = Nothing
End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
Dim wks As Object
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Sheets
  If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function

Gruß Sepp

Anzeige
AW: Kommentar per VBA in eine Zelle schreiben
28.11.2015 08:49:36
Lukas
Guten Morgen Sepp,
boah, super! Vielen Dank!
Ich hätte nun aber doch noch eine Bitte...könntest du mir den Code etwas erläutern? Habe nämlich so gut wie keine VBA-Kenntnisse, aber ich würde diese doch gerne erweitern.
Gruß
Lukas

AW: Kommentar per VBA in eine Zelle schreiben
28.11.2015 09:50:59
Sepp
Hallo Lukas,
anbei deine Datei. Im Code findest du einige Kommentare, ich habe den Code noch ein wenig erweitert, um die Kommentare etwas 'hübscher' darzustellen.
https://www.herber.de/bbs/user/101860.xlsm
Gruß Sepp

Anzeige
AW: Kommentar per VBA in eine Zelle schreiben
28.11.2015 10:41:56
Lukas
Hallo Sepp,
vielen vielen Dank nochmal!
Gruß
Lukas

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Checkbox in Zelle schreiben
Markus

Hallo
Wie kann ich erreichen, daß zwei Checkboxen in einer Userform in die Zellen ein (G) schreiben und wenn ich die Checkboxen das Häcken entferne auch das (G) nicht mehr drin ist.
Wäre es auch möglich, daß wenn Checkbox1 ein Häcken hat Checkbox2 keines mehr hat.
Checkbox1 in Zelle...
30.01.2009 22:42:52
Thread-ID: 1045549
4 Beiträge
Anzeige
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 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
Anzeige

Infobox / Tutorial

Kommentare per VBA in eine Zelle schreiben

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen und wähle Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Option Explicit

Sub Kommentare()
   Dim rng As Range, rngI As Range
   Dim objSh As Worksheet
   Dim varRet As Variant
   Dim lngRow As Long, lngC As Long
   Dim strComment As String

   With Sheets("Übersicht")
       Set rng = .Range("B3:B" & Application.Max(3, .Cells(.Rows.Count, 2).End(xlUp).Row))
       .Cells.ClearComments
       For Each rngI In rng
           If SheetExist(rngI.Text) Then
               Set objSh = Sheets(rngI.Text)
               For lngC = 4 To Application.Max(4, .Cells(2, .Columns.Count).End(xlToLeft).Column)
                   varRet = Application.Match(.Cells(2, lngC), objSh.Rows(2), 0)
                   If IsNumeric(varRet) Then
                       strComment = ""
                       For lngRow = 5 To Application.Max(5, objSh.Cells(.Rows.Count, 4).End(xlUp).Row)
                           If objSh.Cells(lngRow, 4) <> "" Then
                               If objSh.Cells(lngRow, varRet) <> "" Then
                                   If IsNumeric(objSh.Cells(lngRow, varRet)) Then
                                       strComment = strComment & objSh.Cells(lngRow, 4) & String(30 - _
                                       Len(objSh.Cells(lngRow, 4)) - Len(Format(objSh.Cells(lngRow, varRet), "0.00")), _
                                       " ") & Format(objSh.Cells(lngRow, varRet), "0.00") & vbCrLf
                                   End If
                               End If
                           End If
                       Next
                       strComment = strComment & "Gesamt" & String(24 - Len(Format(objSh.Cells(3, varRet), "0.00")), " ") & Format(objSh.Cells(3, varRet), "0.00")
                       .Cells(rngI.Row, lngC).AddComment strComment
                       .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.Characters.Font.Size = 10
                       .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.Characters.Font.Name = "Lucida Sans Typewriter"
                       .Cells(rngI.Row, lngC).Comment.Shape.TextFrame.AutoSize = True
                   End If
               Next
           End If
       Next
   End With

   Set rng = Nothing
   Set objSh = Nothing
End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
   Dim wks As Object
   On Error GoTo ERRORHANDLER
   If Wb Is Nothing Then Set Wb = ThisWorkbook
   For Each wks In Wb.Sheets
       If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
   Next
ERRORHANDLER:
   SheetExist = False
End Function

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus:

    • Gehe zu Entwicklertools → Makros, wähle Kommentare und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: Kommentar wird nicht hinzugefügt.

    • Überprüfe, ob die Tabelle "Übersicht" und die Segmenttabellen vorhanden sind. Stelle sicher, dass die Namen exakt übereinstimmen.

  • Fehler: Excel meldet einen Laufzeitfehler.

    • Vergewissere dich, dass die Daten in den Tabellen korrekt eingegeben sind und keine leeren Zellen in den relevanten Bereichen vorhanden sind.

Alternative Methoden

Wenn Du VBA nicht verwenden möchtest, kannst Du auch Excel-Formeln verwenden, um Kommentare in Zellen anzuzeigen. Eine einfache Möglichkeit ist die Nutzung von KONKATENIEREN oder TEXTVERKETTEN, um die Daten aus verschiedenen Zellen zusammenzuführen.

Praktische Beispiele

Hier ist ein Beispiel, wie der Kommentar für eine Zelle aussehen könnte:

  • In Zelle D3 könnte der Kommentar folgendermaßen aussehen: 
    Berlin: 121,91 €
Nordrhein-Westfalen: 672,15 €
Baden-Württemberg: 595,75 €
Gesamt: 1389,06 €

Du kannst die Formatierung im VBA-Code anpassen, um die Darstellung nach Deinen Wünschen zu gestalten.

Tipps für Profis

  • Du kannst den VBA-Code anpassen, um weitere Informationen hinzuzufügen, wie z.B. die prozentuale Verteilung der Umsätze.
  • Überlege, die Schriftgröße und den Schriftstil der Kommentare zu ändern, um sie hervorzuheben.
  • Nutze das Application.ScreenUpdating-Objekt, um die Bildschirmaktualisierung während der Ausführung des Makros zu deaktivieren, was die Ausführungsgeschwindigkeit erhöhen kann.
Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich den Kommentar in einer anderen Zelle einfügen? Du kannst den Code anpassen, indem Du die Zellenreferenz in der .Cells()-Methode änderst.

2. Ist es möglich, mehrere Kommentare in einer Zelle zu haben? In Excel ist es nicht möglich, mehrere Kommentare in einer Zelle zu haben. Du kannst jedoch die Kommentare so formatieren, dass sie alle relevanten Informationen enthalten.

Beliebteste Forumthreads (12 Monate)

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