Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1204to1208
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
Inhaltsverzeichnis

Kommentare auslesen, Bereich vorgeben

Kommentare auslesen, Bereich vorgeben
Thomas
Hallo,
ich habe folgende Macro gefunden:
Sub comment2cell()
On Error Resume Next
For i = 1 To 1000
If ActiveSheet.Cells(i, 2).Comment.Text  "" Then ' 2 = Spalte B
ActiveSheet.Cells(i, 26) = ActiveSheet.Cells(i, 2).Comment.Text ' 26 = Spalte Z
End If
Next
On Error GoTo 0
End Sub

Nun würde ich die Makro gerne so erweitern, dass ich mit einer Menüabfrage die benötigte Spalte und Zeile auswählen kann.
Danke im voraus für die Unterstützung.
Grüße, Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kommentare auslesen, Bereich vorgeben
28.03.2011 22:43:38
Thomas
habs selber gelöst:
Sub comment2cell()
Dim spalte1 As String
Dim spalte2 As String
a:
spalte1 = InputBox("Bitte Spalte eingeben, wo Kommentare stehen", "Eingabe")
If IsNumeric(wert) = False Then
MsgBox "Bitte Spaltenbuchstabe eingeben"
GoTo a:
End If
b:
spalte2 = InputBox("Bitte Spalte eingeben, wo Kommentare ausgegeben werden sollen", "Eingabe")
If IsNumeric(wert) = False Then
MsgBox "Bitte Spaltenbuchstabe eingeben"
GoTo b:
End If
On Error Resume Next
For i = 1 To 1000
If ActiveSheet.Cells(i, spalte1).Comment.Text  "" Then
ActiveSheet.Cells(i, spalte2) = ActiveSheet.Cells(i, spalte1).Comment.Text
End If
Next
On Error GoTo 0
End Sub

Grüße, Thomas
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige