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

Zelle finden mit Zelladresse und Kommentar eintr.

Forumthread: Zelle finden mit Zelladresse und Kommentar eintr.

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 Zelladresse in Tabelle2 finden? Dort möchte ich dann den Text aus Spalte A (aus Tabelle1) als Kommentar einfügen bzw. anfügen, wenn schon einer da ist.
Für Hilfe würde ich mich freuen.
Grüße, Constantin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle finden mit Zelladresse und Kommentar eintr.
29.10.2009 22:41:10
Josef
Hallo Constantin,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub addComment()
  Dim rng As Range, rngCmnt As Range
  
  With Sheets("Tabelle1")
    For Each rng In .Range("A1:A" & CStr(.Cells(Rows.Count, 1).End(xlUp).Row))
      If rng <> "" Then
        On Error Resume Next
        Set rngCmnt = Sheets("Tabelle2").Range(rng.Offset(0, 1).Text)
        On Error GoTo 0
        Err.Clear
        If Not rngCmnt Is Nothing Then
          If rngCmnt.Comment Is Nothing Then
            rngCmnt.addComment rng.Text
          Else
            rngCmnt.Comment.Shape.TextFrame.Characters.Text = rngCmnt.Comment.Text & vbCrLf & rng.Text
          End If
        End If
      End If
      Set rngCmnt = Nothing
    Next
  End With
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zelle finden mit Zelladresse und Kommentar eintr.
30.10.2009 15:13:40
Constantin
... funktioniert! Sepp, vielen Dank für Deine Hilfe.
Grüße, Constantin

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
Anzeige
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
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
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
Anzeige
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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