---

Ein Hallo an alle!

Da meine Suche nix richtiges gebracht hat, versuche ich es auf diesem Weg.
Um unsere Arbeit noch eff. zu gestalten hier meine Wunschvorstellungen :

• die 4. bis letzte Zeile markieren
  
• alle Zeilen mit optimaler Höhe formatieren
  
• die entstandenen Zeilenhöhen (Zeile 4 bis letzte) wie folgt ersetzen:
  12,75 = 15
  25,5  = 25
  38,28 = 40
  51    = 52
  
• dies alle am besten über ein Macro, welches ich dann auf einen Button legen kann!
  

Ich denke dies ist nicht schwer, aber ich bin in VBA eine Lusche!

------------------
Grüße
Engel07
***************************************************************************************************
"Damit das Mögliche entsteht, muss immer wieder das Unmögliche versucht werden."
***************************************************************************************************

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Engel,

so?

Code:

---

Sub send_me_an_angel()
  Dim i&
  With ActiveSheet.UsedRange
    For i = 4 To .Row + .Rows.Count
      Rows(i).AutoFit
      Select Case Rows(i).RowHeight
        Case 12.75: Rows(i).RowHeight = 15
        Case 25.5: Rows(i).RowHeight = 25
        Case 38.28: Rows(i).RowHeight = 40
        Case 51: Rows(i).RowHeight = 52
      End Select
    Next
  End With
End Sub

---

;-)

Gruss, Nancy 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Nancy, ROFL :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schönen Dank, es funzt so. Erspart mir viel Arbeit...

@Thomas Harmening...

.... kann leider nicht ganz verstehen, was daran so lustig ist.
Man kann ja nicht alles wissen... dafür gibt es ja dieses Klasse Forum !!!

------------------
Grüße
Engel07
***************************************************************************************************
"Damit das Mögliche entsteht, muss immer wieder das Unmögliche versucht werden."
***************************************************************************************************

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von startrek:

Code:

---

Sub send_me_an_angel()
  Dim i&
  With ...

---

;-)

Gruss, Nancy 

---

Das vielleicht 

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
----------------
Es gibt nichts Gutes, ausser man tut es 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Engel07,

Teddiybär hat es schon richtig erkannt - darüber habe ich mich am Boden gewälzt - die Namensgebung des Macros war einfach herzallerliebst.

Aber ich habe auch schon befürchtet, das man dieses ROFL missverstehen kann - so ist es halt

lg Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habs mir ja auch schon gedacht, man muss aber zugeben, dass man es leicht missverstehen kann....

Na gut, bin zur Zeit eh im Stress... und dadurch

------------------
Grüße
Engel07
***************************************************************************************************
"Damit das Mögliche entsteht, muss immer wieder das Unmögliche versucht werden."
***************************************************************************************************

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP