Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Alle Dicken Rahmenlinien auf einmal dünner machen

Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 11:23:32
Darwin
Guten Tag Allerseits!
Ich habe schon sehr lange gegoogelt und finde keine funktionierende Antwort; dh. bin ich umso glücklicher, wenn es jemandem gelingt mein Problem zu lösen:
Ich verwende Excel 2010 auf Windows 7.
Ich habe eine lange Exceltabelle wo viele Rahmenlinien mit durchgezogenem Strich umrandet sind. Nun würde ich gerne alle Linien, welche so sind auf einmal in die dünneren (mit kleinen Punkten dargestellt) konvertieren.
Gibt es hierzu ein funktionierendes Makro?
Das wäre Gold wert!
Da bin ich ja wirklich gespannt ob es da etwas gibt...

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 13:14:16
Hajo_Zi
ich habe keinen einzelnen Code.
ändere eine Zelle in Deiner Tabelle auf die gewünschte Linie, lese den Bereich es mit dem Add In aus, einschl Vorschau.



Tabelle6
 FGHI
18    
19    
20    
Zellrahmen werden in dieser Tabelle nicht dargestellt

Zellrahmen 1 
  Zelle     Links     Rechts     Oben  
    Linienart     Farbe     Linienart     Farbe     Linienart     Farbe  
$F$19        dünn durchgehend 
$G$19    dick durchgehend     
$H$19dick durchgehend  dick durchgehend  dick durchgehend 
$H$20        dick durchgehend 
$I$19dick durchgehend         
Zellrahmen 2 
  Zelle     Unten     Diagonale abwäts     Diagonale aufwärts  
    Linienart     Farbe     Linienart     Farbe     Linienart     Farbe  
$F$18dünn durchgehend         
$H$18dick durchgehend         
$H$19dick durchgehend         
Zellen ohne Rahmen werden nicht aufgeführt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.04 einschl 64 Bit

kopiere es aus dem Browser wieder nach Excel. ändere Deine Linien und mache zurück.
Es ist mir zu aufwendig den Code aus dem Add In heraus zu lösen.

Anzeige
AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 14:10:54
Darwin
Guten Tag
Vielen Dank für die schnelle Antwort.
Leider verstehe ich die Anweisungen allerdings nicht.
Ist das eine Anleitung um mein Problem grafisch in einem Forum zu illustrieren?
Ist es eine Anleitung um es zu lösen?
Folgende Passagen sind mir leider nicht ganz klar:
-lese den Bereich es mit dem Add In aus (Add in konnte ich öffnen und Zelle wählen, aber was dann?)
-einschl Vorschau (?)
-kopiere es aus dem Browser wieder nach Excel (Ich habe das Add-In in Excel aufgemacht und nicht im Browser)
-und mache zurück.(dito)
...danke für weitere Anweisungen...

Anzeige
Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 14:14:40
Hajo_Zi
am Ende meiner Tabelle ist ein Link zum Add In, In der Datei enthalten ist eine Anleitung.
Gruß Hajo

AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 15:41:44
Darwin
Hallo Hajo
Tut mir leid, aber ich sehe "nur" eine Anleitung für ein Tool um Excel Inhalte im Web darzustellen und keines um bestimmte Zellen-Rahmen-Linien-Formate innerhalb eines Excel-Files in andere Formate umzuwandeln; wie ich gefragt hatte.

Anzeige
Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 18:00:55
Hajo_Zi
ja mit dem Tool wird Html Code erstellt für das Internet. Den kannst Du nach Excel zurück kopieren und die Tabelle erstellten. Davor solltest Du die die richtige Rahmenlinie eintragen Die Du ja bei einer Zelle gemacht hast. Damit Du auch die Bezeichnung laut Tool hast.
Gruß Hajo

Anzeige
AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 16:01:42
Rudi
Hallo,
auf einmal wird das nicht geling. Nur Zelle für Zelle.
Gruß
Rudi

AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 16:08:01
Darwina
Hallo Rudi
Das ist ja schon mal eine Ansage.
Aber ich meinte es gäb da so ein kleines Zaubertool namens: VBA
;)
;)
;)
Come on Jungs; ihr könnt das doch bestimt ;)

Anzeige
AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 16:17:13
Rudi
Hallo,
Sub machs()
Application.ScreenUpdating = False
Rahmenlinien xlThin, xlHairline
End Sub
Sub Rahmenlinien(iAlt As Integer, iNeu As Integer)
Dim rngC As Range, i As Integer
For Each rngC In ActiveSheet.UsedRange
For i = 5 To 12
With rngC.Borders(i)
If .LineStyle  xlNone Then
If .Weight = iAlt Then .Weight = iNeu
End If
End With
Next
Next
End Sub

Gruß
Rudi

Anzeige
AW: Alle Dicken Rahmenlinien auf einmal dünner machen
10.12.2013 16:24:20
Darwina
Rudi
Das ist ganz grosses Kino ;)
Du bist mein Hero;
(und ich bin sicher auch noch von ganz vielen anderen, die auf dieses Problem auf dieser Seite die Antwort finden werden!)
Als kleine Hommage an Dich hab ich das Sub "Rudi" getauft
;) Yes!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alle Dicken Rahmenlinien auf einmal dünner machen


Schritt-für-Schritt-Anleitung

Um alle dicken Rahmenlinien in Excel auf einmal dünner zu machen, kannst Du ein einfaches VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub machs()
       Application.ScreenUpdating = False
       Rahmenlinien xlMedium, xlThin
    End Sub
    
    Sub Rahmenlinien(iAlt As Integer, iNeu As Integer)
       Dim rngC As Range, i As Integer
       For Each rngC In ActiveSheet.UsedRange
           For i = 5 To 12
               With rngC.Borders(i)
                   If .LineStyle <> xlNone Then
                       If .Weight = iAlt Then .Weight = iNeu
                   End If
               End With
           Next
       Next
    End Sub
  4. Ändere die Werte xlMedium und xlThin nach Deinen Wünschen, wenn Du andere Gewichtungen verwenden möchtest.

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Drücke ALT + F8, wähle das Makro machs aus und klicke auf Ausführen.

Jetzt sollten alle dicken Rahmenlinien in Deiner Tabelle dünner sein!


Häufige Fehler und Lösungen

  • Problem: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Du das Makro korrekt eingefügt hast und dass die Makros in den Excel-Optionen aktiviert sind.
  • Problem: Einige Linien bleiben dick.

    • Lösung: Überprüfe, ob die Linien, die nicht geändert wurden, tatsächlich die gleiche Dicke wie im Code angegeben hatten.

Alternative Methoden

Wenn Du kein VBA verwenden möchtest, kannst Du auch manuell die Rahmenlinien ändern:

  1. Wähle den Bereich aus, in dem Du die Rahmenlinien ändern möchtest.
  2. Gehe zu Start -> Format -> Rahmen.
  3. Wähle Dünne Rahmenlinien aus der Liste aus.

Diese Methode ist jedoch zeitaufwändiger, besonders wenn Du viele Zellen hast.


Praktische Beispiele

Angenommen, Du hast eine Excel-Tabelle, die wie folgt aussieht:

A B
Wert1 Wert2
Wert3 Wert4

Wenn Du alle Rahmenlinien in dieser Tabelle auf dünn einstellen möchtest, kannst Du das oben beschriebene Makro verwenden. Nach dem Ausführen des Makros erscheinen die Zellen mit dünnen Rahmenlinien.


Tipps für Profis

  • Überlege, ob Du die Funktion Conditional Formatting (Bedingte Formatierung) nutzen möchtest, um die Sichtbarkeit Deiner Daten zu verbessern, anstatt die Rahmenlinien zu ändern.
  • Speichere Deine Arbeit regelmäßig, insbesondere bevor Du Makros ausführst, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Frage Kann ich das Makro auch in Excel 2016 oder anderen Versionen verwenden?

Antwort: Ja, das Makro funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010, 2013, 2016 und 2019.

2. Frage Was ist, wenn ich nur die Rahmenlinien von bestimmten Zellen ändern möchte?

Antwort: Du kannst den Bereich im Makro anpassen, indem Du nur die gewünschten Zellen auswählst, bevor Du das Makro ausführst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige