Clever-Excel-Forum

Hallo zusammen,

ich habe eine Frage zu folgendem Code und hoffe, ihr könnt mir weiterhelfen:

...
Worksheets("Sheet1").Cells(Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = "Text"
Worksheets("Sheet1").Cells(Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = ActiveSheet.Name
...

Wie schaffe ich es, dass der Text und der Reitername zusätzlich fett und unterstrichen ausgegeben werden?

Vielen Dank im Voraus.

Viele Grüße
Silvie

Hallo Silvie,

das ist so ein typischer Fall für den Makrorekorder...
Damit bekommst Du einen Code und kannst ihn an deine Bedürfnisse anpassen.

Ich würde es so machen:

Code:
With Worksheets("Sheet1").Cells(Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)

    .Value = "Text"

    .Value = ActiveSheet.Name

    .Font.Bold = True

    .Font.Underline = xlUnderlineStyleSingle

End Sub

Wozu schreibst Du eigentlich zweimal in die Zelle rein?

Gruß,
Lutz

Zitat:Wozu schreibst Du eigentlich zweimal in die Zelle rein?

macht Sie doch nicht. Blush

Moin!
Vorher das entsprechende Sheet aktivieren:

Sub MachEt()
With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(2, 1)
  .Font.Bold = True
  .Font.Underline = xlUnderlineStyleSingle
  .Cells(1) = "Text"
  .Cells(2) = .Parent.Name
End With
End Sub

Gruß Ralf

Hallo Lutz,

vielen Dank für deine Antwort.
Der Code gibt nun genau das aus, was ich wollte.

Der Knackpunkt war, dass ich nicht wusste, dass ich in der With-Anweisung auch den Value angeben kann.
Der Makrorekorder konnte mir da nicht weiterhelfen.

Wozu schreibst Du eigentlich zweimal in die Zelle rein?

Cells(Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) sucht immer die nächste freie Zeile, daher wird keine Zelle zweimal beschrieben.

Viele Grüße
Silvie

Silvie

Lutz Fricke

Elex

RPP63

Silvie