Office: Rahmen in best. Bereich

Hey zusammen.

Mir geht es um ein - für euch sicherlich einfaches - Makro. Ich will, dass das Makro einen Rahmen mit bestimmten Eigenschaften um jede Zeile und jede Zelle darin zieht, wenn in einer der Zellen der Zeile ein Wert steht.
Ich habe vor kurzem mein erstes Anfängerbuch gelesen, bin also wirklich ein Neuling, deswegen bitte ich euch mir meine "Dummheit" naachzusehn.

Ich durchsuche den Bereich derzeit mit einer Fore Each Schleife. Sie geht jede Zelle in meinem Bereich durch und prüft, ob diese leer ist. Wenn sie nicht leer ist, dann wird ein Rahmen um die gesamte Reihe gezogen. Mein Problem liegt hierbei darin, dass es eben dann über das gesamte Blatt geht und nicht nur in meinem Bereich.

Ich hoffe ihr könnt mir helfen, ich poste noch kurz meinen bisherigen Code damit ihr seht wo der Fehler liegt, falls ich es nicht gut genug erklärt habe.
Der Kommentar muss auch noch durch Code ersetzt werden.


Sub Rahmen()

'erstes Tabellenblatt aktivieren

Set Bereich = Range("G6:X100")

For Each Zelle In Bereich

If Not Zelle.Value = Empty Then

Zelle.EntireRow.Borders.Weight = xlMedium
Zelle.EntireRow.Borders(xlEdgeLeft).LineStyle = xlContinuous
Zelle.EntireRow.Borders(xlEdgeRight).LineStyle = xlContinuous
Zelle.EntireRow.Borders(xlEdgeTop).LineStyle = xlContinuous
Zelle.EntireRow.Borders(xlEdgeBottom).LineStyle = xlContinuous

End If
Next

End Sub



Vielen Dank schon im Voraus!

:)

 

Dir ist schon klar, wenn du um jede Zelle einzeln einen Rahmen macht, das die Dateigröße sehr steigt.

 

Hallo Till,

Code:

passt es so?

 

Das klappt!! Danke Dir!

Allerdings geht es mir ja auch darum es zu lernen, deswegen würde ich mich sehr freuen, wenn du mir die worksheetfunction.counta (zeile) erklären könntest?

Das war jetzt erstmal der Grundstein, für den ich mich natürlich sehr bedanke. Ich werde dann demnächst mal ein Ausbauen vom Code versuchen. Falls ich nicht weiterkomme, dann werde ich mich nochmal melden!

Danke bis hierhin und ich hoffe auf die Erklärung, damit ich auch den Code verstehe!

 

Hi,

'Ermittelt die Anzahl von nicht leeren Zellen von einem Bereich
'entspricht der Tabellenfunktion Anzahl2
If WorksheetFunction.CountA(Zeile) > 0 Then

Tipp:
wenn Du den Cursor in der Entwicklungsumgebung auf CountA stellst und F1 drückst, kommt die Hilfe dafür.

 

Danke Dir!! Hast mir sehr geholfen!