Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kommentar (aus Zelle) in Variable schreiben

Forumthread: Kommentar (aus Zelle) in Variable schreiben

Kommentar (aus Zelle) in Variable schreiben
23.04.2005 16:09:08
Axel
Hallo zusammen,
ich habe angefangen zu programmieren (seit 1 Woche) und schaffe es nicht, einen Kommentar in eine Variable zu schreiben. Irgendwie mache ich wohl noch Syntax Fehler. Kann mir jemand helfen ?
Folgendes Beispiel funktioniert bei mir nicht :
Dim Wert3 as Comment
Wert3 = ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Comment.Text
In die Variable Wert3 soll der Kommenta - der ein paar Zellen weiter oben steht - geschrieben werden.
Danke für einen Tip
Gruss, Axel
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 16:23:18
Nepumuk
Hallo Axel,
der Text ist eine Zeichenkette und kein Comment - Objekt. Also:
Dim Wert3 as String
Gruß
Nepumuk
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 16:30:20
Axel
Danke Nepumuk,
aber es geht noch immer nicht. Vielleicht habe ich mich auch nicht ganz korrekt ausgedrückt. Ich möchte aus einer Zelle die einen Kommentar enthält nur den Kommentar auslesen und dann in eine Variable schreiben. Wahrscheinlich ziemlich simpel.
Danke für eine Antwort,
gruss, Axel
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 16:37:38
Nepumuk
Hallo Axel,
bist du dir sicher, das die Berechnung der Adresse stimmt? Wird eine Fehlermeldung ausgegeben? Ich habe das getestet und es funktioniert einwandfrei. Ersetze mal die Zeile:
Wert3 = ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Comment.Text
durch diese beiden und schau wo dein Cursor landet.
ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Select
Stop
Gruß
Nepumuk
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 16:50:08
Axel
Hallo Nepumuk,
vielen Dank für Deine Mühe, es geht leider nocht nicht. Ich habe 2x den gleichen Befehl, nur das eine mal lese ich den Wert des Feldes aus, das andere mal will ich den Kommentartext aus dieser Zelle auslesen, und da steigt mein Programm aus.
hier mal das Listing des Programms.
Danke im voraus für Deine Antwort

Sub Hauptprog()
'_______________________________________________________________
' Name :    Hauptprogramm
' Datum :   24.4.05
' Autor :   Axel Chudzik
' Dieses Programm liest aus einer vorgegeben Matrix (Checkliste
' Kundenanforderungen) die bestehenden aktuellen Forderungen aus,
' diese Daten werden dann in Tabelle2 gesammelt und sollen danach
' in eine Word Datei, um eine fertige Korrespondenz/Anfrage dem
' Kunden zu senden
Dim KdNr As Long
Dim CheckDat As Date
Dim CheckTyp As String
Dim Zähl As Integer
Dim i As Integer
Dim Wert1 As String
Dim Wert2 As String
Dim Wert3 As String
Const Forderung1 = "Allgemeine Vereinbarungen"
Const Forderung2 = "QM-Forderungen"
Const Forderung3 = "Reklamationen"
Const Forderung4 = "Lieferbedingungen"
Const Forderung5 = "Umweltrichtlinien"
Dim BereichSpalte As Range
Set BereichSpalte = Range("c1:c500")
Dim BereichZeile As Range
Set BereichZeile = Range("e3:cc3")
Sheets("Tabelle2").Select
Cells.Clear
Columns("A:A").ColumnWidth = 3
Columns("B:B").ColumnWidth = 3
Columns("C:C").ColumnWidth = 10
Columns("D:D").ColumnWidth = 50
Sheets("Tabelle1").Select
On Error GoTo fehler
Beginn:
i = 0
KdNr = InputBox("Geben Sie die Kd.Nr. ein!", _
"KundenNummer eingeben")
If IsNumeric(KdNr) Then
Else
MsgBox "Bitte Ziffern eingeben"
GoTo Beginn
End If
' Suchen der eingegebenen Kunden Nummer
Range("a1").Select
Cells.Find(What:=KdNr, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
k = ActiveCell.Row                                      ' Erfassen der gefundenen Zeile
j = 1                                                   ' Schleifenzähler für Tabelle 2
ActiveCell.Offset(0, 2).Activate
For Zähl = 1 To ActiveSheet.UsedRange.Columns.Count     ' Schleife mit Abtastung WerteBreite
i = i + 1
If IsEmpty(ActiveCell.Value) Then                   ' Abprüfung Datum in Kundenforderung
' Falls leer gehe zum nächsten Feld
Else                                                ' Falls nicht leer ...
Wert1 = ActiveCell.Value                        ' Datumswert
Wert2 = ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Value ' Text Kundenanforderungen
Wert3 = ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Comment.Text ' Text aus Kommentarfeld
Worksheets("Tabelle2").Activate                 ' Aktiviere Tabelle 2
Range("a1").Select                              ' Setze Koordinate
ActiveCell.Offset(j, 2).Value = Wert1           ' Schreibe Datum
ActiveCell.Offset(j, 3).Value = Wert2           ' Schreibe Kundenanforderung
ActiveCell.Offset(j, 4).Value = Wert3           ' Schreibe spezielle Forderung (Kommentar)
j = j + 1
Worksheets("Tabelle1").Activate
End If
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate   ' Spalte um 1 nach rechts
Next Zähl                                                ' Schleifenende
' Aufrufen und schreiben in Word Datei
Exit Sub
fehler:
MsgBox "Sie haben keine gültige Kd.Nr. eingegeben!"
GoTo Beginn
End Sub

Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 17:02:41
Nepumuk
Hallo Axel,
<<und da steigt mein Programm aus>>
Mit einer Fehlermeldung oder wie oder was?
Gruß
Nepumuk
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 17:16:50
Axel
er steigt aus der Schleife aus !
Gruss Axel
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 17:19:09
Nepumuk
Hallo Axel,
so kommen wir nicht weiter. Kommentiere mal die On Error - Anweisung aus. Ich brauche die Fehlermeldung.
Gruß
Nepumuk
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 17:37:19
Axel
Hallo Nepumuk,
ich werde erst morgen Vormittag weitermachen, da ich jetzt eine Verabredung
habe. Vielleicht schaust Du morgen Mittag nochmal rein.
Danke und einen schönen Abend noch
Gruss,Axel
AW: Kommentar (aus Zelle) in Variable schreiben
23.04.2005 18:54:31
andre
Hallöchen,
kann eigentlich nur zwei Ursachen haben
- die Zelle ist nicht erreichbar, weil z.B der Offset aus der Tabelle führt
- es ist kein Kommentar drin
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
24.04.2005 14:05:09
Axel
Hallo nochmal gemeinsam,
also nochmal :
beim Auslesen des Kommentarfeldes in die Variable "Wert3" steigt das Programm aus mit dem Fehler :
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt
Die Variablen Wert1, Wert2, Wert3 sind anfangs mit
Dim Wert1 as String definiert.
Was zum Teufel mache ich bloss falsch ?
Danke für Eure Hilfe
Gruss, Axel
Wert1 = ActiveCell.Value ' Datumswert
Wert2 = ActiveCell.Offset(rowOffset:=(k - 3) * (-1), columnOffset:=0).Value ' Text Kundenanforderungen
Wert3 = ActiveCell.Comment.Text ' Text aus Kommentarfeld
Worksheets("Tabelle2").Activate ' Aktiviere Tabelle 2
Range("a1").Select ' Setze Koordinate
ActiveCell.Offset(j, 2).Value = Wert1 ' Schreibe Datum
ActiveCell.Offset(j, 3).Value = Wert2 ' Schreibe Kundenanforderung
ActiveCell.Offset(j, 4).Value = Wert3 ' Schreibe spezielle Forderung (Kommentar)
j = j + 1
Worksheets("Tabelle1").Activate
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
24.04.2005 14:13:54
Holger
Hi,
bedeutet, dass die Zelle keinen Kommentar enthält.
mfg Holger
AW: Kommentar (aus Zelle) in Variable schreiben
24.04.2005 14:19:38
Axel
Hallo Holger,
danke, Du hast recht !!!!
ich habs grad per Einzelschritt alles geprüft und zur Sekunde selbst gemerkt.
Kannst Du mir ein kurzes Beispiel geben, wie ich das Kommentarfeld auf Leer oder Nicht-Leer prüfe und dann in diese Verzweigung meinen Befehl für das Beschreiben der Variable einbaue ?
Danke für Deine Hilfe
Gruss, Axel
(bin halt noch Anfänger)
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
24.04.2005 14:24:30
Nepumuk
Hi,
du kannst das Objekt abfragen:


If Not ActiveCell.Comment Is Nothing Then ...             ' Kommentar ist vorhanden!


Gruß
Nepumuk
Anzeige
AW: Kommentar (aus Zelle) in Variable schreiben
24.04.2005 14:35:20
Axel
Hallo nepumuk und Holger und André
es funktioniert !!
danke für Eure Hilfe und schönen Sonntag noch....
Gruss, Axel
;

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 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
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Darstellung von Variablen in Textfeldern von Grafi
Variablen

Ich habe in einer EXCEL-Anwendung mehrere Grafiken mit eingefügten Textfeldern. Die Inhalte der Textfelder wurden bisher manuell erfasst. Besteht eine Möglichkeit, die Textfelder mit den Inhalten von Zellen aus der EXCEL-Anwendung zu verknüpfen? Mein Wunsch ist, in Zukunft bei Aktualisierung de...
06.10.2008 18:22:00
Thread-ID: 1014516
5 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
*Text* in einer Variable
Thomas

Hallo,
wie kann ich herausfinden ob ein Text in einer Variable enthalten ist?
Beispiel: If variable = *text* Then xxxxx
oder If *text* IsIn variable Then xxxx
Grüße
16.10.2008 12:09:00
Thread-ID: 1016816
8 Beiträge
Anzeige
Variablen in Textfile schreiben, getrennt durch ta
Siggi

Hallo,
ich möchte Variablen mit Hilfe der "writeline" Befehls in eine Textdatei schreiben. Funktioniert soweit auch gut. Leider werden die einzelnen Werte die ich in eine Zeile schreibe direkt aneinander gereiht. Ist es möglich diese durch einen Tabstop zu trennen?
Der folgende Code ist...
31.10.2008 17:56:05
Thread-ID: 1020933
3 Beiträge
OpenText FieldInfo variabler array
Siggi

Hallo zusammen,
ich habe eine Textdatei die ich in Excel auslesen möchte. Zum Import nutze ich momentan die Opentext Methode. Anschließend lese ich die Werte des erzeugten Arbeitsblatts in ein Array ein um dann wiederum bestimmte Werte in eine Textdatei zu schreiben.
Workbooks.OpenText...
14.11.2008 18:56:29
Thread-ID: 1024682
2 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Anzeige
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige