Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rahmen machen bei Eingabe

Rahmen machen bei Eingabe
12.11.2004 13:19:32
Hubi
Hallo
Ich würde gerne eine Tabelle machen. Diese hat die Eigenheit, dass sie automatisch einen Rahmen hinzufügen soll. Also so z.b. gebe ich das folgende in eine Spalte ein (das "x. Zeile" soll nur verdeutlichen dass es sich um mehrere Zeilen handeln soll.
1. Zeile: Hallo
2. Zeile: Hund
3. Zeile: Hase
4. Zeile: Baum
Wenn ich dann Bedingte Formatierung mache dann schaffe ich es dass es so ist:
1. Zeile: |Hallo|
2. Zeile: |Hund |
3. Zeile: |Hase |
4. Zeile: |Baum |
also dass links und rechts von dem n rahmen ist.
Nur hab ich das Problem, dass nicht zwangsläufig in jeder Zeile was drinnen steht. So kann es z.b. folgend aussehen:
1. Zeile: Hallo
2. Zeile:
3. Zeile:
4. Zeile: Baum
ich will aber trotzdem dass die Linie durchgängig ist. Also so:
1. Zeile: |Hallo|
2. Zeile: | |
3. Zeile: | |
4. Zeile: |Baum |
Mit bedingter Formatierung krieg ichs aber nur so hin:
1. Zeile: |Hallo|
2. Zeile:
3. Zeile:
4. Zeile: |Baum |
Ich will eben dass ich den Rahmen nicht immer selber weitermachen muss, wenn ich ne neue Zeile aufnehmen.
Wär echt super wenn Ihr mir helfen könntet. Vielen Dank schon im Vorraus :)
bye
Hubi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rahmen machen bei Eingabe
Hubi
natürlich will ich einen durchgänigen Rahmen links und rechts - nicht so verschoben. hat leider in der vorschau anders ausgesehen als es jetzt aussieht. sorry
Da sieht man eben dass ich n Newbie bin ;)
AW: Rahmen machen bei Eingabe
Hübi
Hi Hubi,
schau dir dieses Bild an und passe die Zellbezüge an deine Bedürfnisse an
Userbild
Gruß Hübi
AW: Rahmen machen bei Eingabe
Uduuh
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Integer
On Error GoTo errHandler
iCol = Target.Column
If iCol = 1 Then  'nur Änderungen in Spalte1 (A)
Application.EnableEvents = False
'Rahmen unter letztem Eintrag löschen
With Range(Cells(Rows.Count, iCol), Cells(Rows.Count, iCol).End(xlUp).Offset(1, 0))
.Borders(xlLeft).LineStyle = xlNone
.Borders(xlRight).LineStyle = xlNone
End With
'Rahmen über letztem Eintrag einfügen
With Range(Cells(2, iCol), Cells(Rows.Count, iCol).End(xlUp))
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End If
errHandler:
Application.EnableEvents = True
End Sub

Gruß aus'm Pott
Udo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige