Thema Datum  Von Nutzer Rating
Antwort
06.04.2009 15:02:57 Chriscross
NotSolved
Blau Aw:Zelleninhalte zusammenführen mit VBA
 07.04.2009 15:18:07 Holger
NotSolved
07.04.2009 18:03:54 Chriscross
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
07.04.2009 15:18:07		 Views:
2512		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zelleninhalte zusammenführen mit VBA
Hallo Chriscross,
verstehe ich dich richtig, dass in der bereits mit Umbruch formatierten Spalte 17 (oder 19?), wenn in Spalte 19 ein x steht, das aktuelle Datum: no Feedback in einer neuen Zeile vorangestellt werden soll?
Ändere dann deine Schleife in
For I = 4 To 2000
If Worksheets(1).Cells(I, 19) = "x" Then
Worksheets(1).Cells(I, 17).Value = cstr(date) & ": no feedback"+ chr(10)+ Worksheets(1).Cells(I, 17)
End If
Next I
Wenn Worksheets(1) das aktive Tabellenblatt ist, kannst du "Worksheets(1)." jeweils weglassen. Value ist die Haupteigenschaft von Cells, weshalb du es auch weglassen kannst.
Ich würde am Ende
Cells.Rows.AutoFit
einfügen, um die Zeilenhöhen zu korrigieren.
Gruß
Holger

Chriscross schrieb am 06.04.2009 15:02:57:

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.04.2009 15:02:57 Chriscross
NotSolved
Blau Aw:Zelleninhalte zusammenführen mit VBA
 07.04.2009 15:18:07 Holger
NotSolved
07.04.2009 18:03:54 Chriscross
NotSolved