Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1360to1364
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
1360to1364
1360to1364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rahmen und Formel bis Ende der Tabelle

Rahmen und Formel bis Ende der Tabelle
12.05.2014 10:31:47
Alex105
Hallo Zusammen,
ich habe eine Tabelle, die ich mithilfe von einem Makro formatieren lasse. Jetzt benötige ich für 2 Punkte innerhalb dieser Tabelle mal bitte Eure Hilfe.
1. Punkt: In E2 fängt eine Wenn-Formel an, die bis ans Ende der Tabelle laufen soll (Tabellenlänge ist dynamisch)
2. Punkt. Es soll um die komplette Tabelle "Alle Rahmenlinien" gezogen werden. In der Breite der Tabelle geht es immer nur von A-J. Die Länger der Tabelle variiert jedoch.
Kann mir da evtl. jemand helfen?
Vielen Dank und viele Grüße
Alex

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 13:13:59
UweD
Hallo Alex
so? 
Sub TT()
On Error GoTo Fehler
Dim SP%, LR&
Dim rng As Range
'*** bescheunigt das Makro
Application.ScreenUpdating = False
SP = 1 'Spalte A
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Set rng = .Range("A1:J" & LR)
.Range("E2").Copy .Range("E3:E" & LR)
End With
With rng
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlMedium
End With
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub

Gruß UweD

Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 13:55:15
Alex105
Hallo Uwe,
vielen Dank für die "erste Hilfe".
Wenn ich deinen Code einfüge, zieht er mir "nur" eine dicke Linie um die Werte. Die Formel übernimmt er jedenfalls schon mal!
Wäre es möglich, dass wir das so hinbekommen, dass um jede Zelle ein einfacher (nicht dicker) Rahmen gezogen wird?!
Viele Grüße und besten Dank!!
Alex

AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 14:14:09
UweD
Hallo nochmal
füge das noch zusätzlich ein..
    With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Dünne Linie...
ersetze überall das xlMedium durch xlThin
Gruß UweD

Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 14:32:33
Alex105
Hallo Uwe,
so sieht es jetzt aus
Sub TT()
On Error GoTo Fehler
Dim SP%, LR&
Dim rng As Range
'*** bescheunigt das Makro
Application.ScreenUpdating = False
SP = 1 'Spalte A
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Set rng = .Range("A1:J" & LR)
.Range("E2").Copy .Range("E3:E" & LR)
End With
With rng
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.  _
_
Clear
End Sub

Aber dann bekomme ich die Fehlermeldung: Fehler438 Objekt unterstützt diese Eigentschaft oder Methode nicht
Viele Grüße
Alex

Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 14:39:40
UweD
Hallo nochmal
Du hast den Code an der Falschen Stelle eingefügt.
Ein "End With" stand dann Falsch
so ... 

Sub TT()
On Error GoTo Fehler
Dim SP%, LR&
Dim rng As Range
'*** bescheunigt das Makro
Application.ScreenUpdating = False
SP = 1 'Spalte A
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
Set rng = .Range("A1:J" & LR)
.Range("E2").Copy .Range("E3:E" & LR)
End With
With rng
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub

Gruß UweD

Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 14:49:20
Alex105
Hallo UweD,
für euch ist das hier alles Kinderkram aber ich sage vielen, vielen DANK!!!! Großartig.
Der Kollege Tino (auch aus dem Forum) war so freundlich und hat mir das hier gebaut:
Sub Test()
Dim nRow, lngDateMin&, lngDateMax&, n&
With Tabelle1.UsedRange.EntireRow
lngDateMin = Application.WorksheetFunction.Min(.Columns(1))
lngDateMax = Application.WorksheetFunction.Max(.Columns(1))
For n = Year(lngDateMax) To Year(lngDateMin) Step -1
lngDateMax = DateSerial(n + 1, 1, 1)
nRow = Application.Match(lngDateMax, .Columns(1), 1)
If IsNumeric(nRow) Then
If .Cells(nRow + 1, 1)  "" Then
.Rows(nRow + 1).Insert Shift:=xlDown
End If
End If
Next n
End With
End Sub
Dieser Code trägt am ende des Jahres (innerhalb einer dynamischen Liste) eine Leerzeile ein.
Wenn ich jetzt deinem Code auch einen "Call" gebe, zieht er mir die Formel aus E2 auch in die Leerzeilen. Bekommst du das auch weg ge(h)excelt? :-)
Danke nochmal UweD :-)

Anzeige
AW: Rahmen und Formel bis Ende der Tabelle
12.05.2014 15:04:54
Alex105
Hallo UweD,
für euch ist das hier alles Kinderkram aber ich sage vielen, vielen DANK!!!! Großartig.
Der Kollege Tino (auch aus dem Forum) war so freundlich und hat mir das hier gebaut:
Sub Test()
Dim nRow, lngDateMin&, lngDateMax&, n&
With Tabelle1.UsedRange.EntireRow
lngDateMin = Application.WorksheetFunction.Min(.Columns(1))
lngDateMax = Application.WorksheetFunction.Max(.Columns(1))
For n = Year(lngDateMax) To Year(lngDateMin) Step -1
lngDateMax = DateSerial(n + 1, 1, 1)
nRow = Application.Match(lngDateMax, .Columns(1), 1)
If IsNumeric(nRow) Then
If .Cells(nRow + 1, 1)  "" Then
.Rows(nRow + 1).Insert Shift:=xlDown
End If
End If
Next n
End With
End Sub
Dieser Code trägt am ende des Jahres (innerhalb einer dynamischen Liste) eine Leerzeile ein.
Wenn ich jetzt deinem Code auch einen "Call" gebe, zieht er mir die Formel aus E2 auch in die Leerzeilen. Bekommst du das auch weg ge(h)excelt? :-)
Danke nochmal UweD :-)
Anzeige

328 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12