Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bedingungen festlegen

Bedingungen festlegen
26.01.2005 09:36:23
MarryJo
Hallo zusammen,
ich habe ein Problem und ich hoffe, dass mir jemand helfen kann.
Ich habe eine Spalte in der Zahlen stehen, daneben wird eine Kommentarspalte eingefügt. Durch ein Makro sollen wenn verschiedene Fälle eintreten ein Kommentar in die Kommentarspalte geschrieben werden.
Allerdings soll es im Makro so aussehen, dass ich erstmal alle verschiedene Kommentare definiere und ihnen Nummern zuweise. Und danach soll dann z.B. wenn die Zahl größer 2 ist Kommentar 1 reingeschrieben werden.
Ich habe leider überhaupt keine Ahnung wie das geht.
Ich hoffe auf Hilfe!!!
Dank vorab.
Gruss MarryJo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingungen festlegen
26.01.2005 09:53:43
Harald
Hallo MarryJo,
das geht ohne Makro per SVERWEIS.
Gruß
Harald
AW: Bedingungen festlegen
MarryJo
Stimmt, aber es soll auf jeden Fall mit einem Makro geschehen.
So soll es ja irgendwie anfangen. Aber mir sagt das alles nichts.
'In dieser Schleife....
For Each rgCell In rgColGw
iRow = rgCell.Row - 1
IF.......
MarryJo
AW: Bedingungen festlegen
u_
Hallo,
etwa so:

Sub Kommentar()
Const strKomm1 As String = "Kommentar1"
Const strKomm2 As String = "Kommentar2"
Const strKomm3 As String = "Kommentar3"
Dim iRows As Long, i As Long
iRows = Range("a65536").End(xlUp).Row 'letzte Zeile in Spalte A
For i = 1 To iRows
Select Case Cells(i, 1)
Case 1 To 3
If Cells(i, 2).NoteText = "" Then 'kein Kommentar vorhanden
Cells(i, 2).AddComment strKomm1
Else
Cells(i, 2).Comment.Text strKomm1 'Kommentar vorhanden, Text ändern
End If
Case 4 To 6
If Cells(i, 2).NoteText = "" Then 'kein Kommentar vorhanden
Cells(i, 2).AddComment strKomm2
Else
Cells(i, 2).Comment.Text strKomm2 'Kommentar vorhanden, Text ändern
End If
Case 7 To 12
If Cells(i, 2).NoteText = "" Then 'kein Kommentar vorhanden
Cells(i, 2).AddComment strKomm3
Else
Cells(i, 2).Comment.Text strKomm3 'Kommentar vorhanden, Text ändern
End If
End Select
Next i
End Sub

Gruß
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige