Hallo,
Ich hab da folgendes Problem, welches ich gerne mit einem Makro erschlagen würde.
Ich durchforste eine Spalte (Spalte 17) in meinem Excel Sheet. Sollte dort ein Feedback nicht innerhalb der letzten 12 Tage gegeben worden sein, so bekommt die Zeile einen Marker "x" in Spalte 19.
Dann habe ich nen Button zum Auswerten.
(Einträge in Spalte 17 sind als Text-Format mit Umbrüchen geschrieben:
"04-Apr-2009: Status blabla...
31-Jan-2009: sososo...", usw.)
Hat die Spalte 19(bzw. S) ein "x" so soll Spalte 17 später einmal so aussehen:
"aktuelles Datum: no feedback;
04-Apr-2009: Status blabla...
31-Jan-2009: sososo...", usw.)"
Mit Zeilenumbrüchen.
Bisher habe ich das:
Private Sub Feedback_Click()
Dim I As Integer
Worksheets(1).Range("A3:U3").AutoFilter Field:=19, Criteria1:="x"
For I = 4 To 2000
If Worksheets(1).Cells(I, 19) = "x" Then
Worksheets(1).Cells(I, 22).Value = "no feedback"
End If
Next I
End Sub
So, und nu weiß ich net, wie ich die Inhalte gescheit zusammenfüge,
Hätte das jetzt über ne Ersatzspalte gemacht:
= "aktuelles Datum" &": "& S3&V3
und diese dann in die Spalte 19 verschoben.
Danach wieder Spalte 22 löschen.
Das sollte jetzt alles möglichst in VBA geschrieben sein, sodass ich mit einem Klick auf meinen Button überall schöne Einträge bekomme.
Hat da einer ne Idee.
Ciao,
Chrisscross |