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

Kommentare auslesen, Bereich vorgeben

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

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
;

Beliebteste Forumthreads (12 Monate)

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