Text bei End(xlUp) fett ausgeben

[Silvie]

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

[Lutz Fricke]

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

[Elex]

Hi

Wozu schreibst Du eigentlich zweimal in die Zelle rein?

macht Sie doch nicht.

[RPP63]

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

[Silvie]

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