Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich im Code variabel gestalten

Forumthread: Bereich im Code variabel gestalten

Bereich im Code variabel gestalten
06.11.2008 12:11:41
Lanima
Hallo zusammen,
ich habe folgenden Code per Recorder aufgezeichnet:

Sub Rechnung()
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Range("K60").Select
ActiveCell.FormulaR1C1 = "=SUM(DATA11)"
Range("L59").Select
Selection.AutoFill Destination:=Range("L59:L60"), Type:=xlFillDefault
Range("L59:L60").Select
Range("M60").Select
ActiveCell.FormulaR1C1 = "=SUM(DATA13)"
Range("N59").Select
Selection.AutoFill Destination:=Range("N59:N60"), Type:=xlFillDefault
Range("N59:N60").Select
Range("K60:N60").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("N59").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub


Da die Anzahl Zeilen aber variiert (die Spalten sind immer gleich), benötige ich das ganze variabel.
Also Summen usw. unter die letze gefüllte Zeile und dann alles einrahmen.
Ich hoffe, es ist einigermaßen verständlich.
Kann mir jemand helfen?
Gruß
Martin

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich im Code variabel gestalten
06.11.2008 12:38:52
Reinhard
Hi Martin,
was verbirgt sich hinter Data11,Data13? Ein dynamischer oder fester Spaltenbereich? Welche Zellen umfaßt der?
Bringen diese beiden Codes das gleiche Ergebnis?

Sub nn()
Cells.Select
Selection.Interior.ColorIndex = xlNone
Selection.Font.ColorIndex = 0
Range("K60").Select
ActiveCell.FormulaR1C1 = "=SUM(DATA11)"
Range("L59").Select
Selection.AutoFill Destination:=Range("L59:L60"), Type:=xlFillDefault
Range("L59:L60").Select
Range("M60").Select
ActiveCell.FormulaR1C1 = "=SUM(DATA13)"
Range("N59").Select
Selection.AutoFill Destination:=Range("N59:N60"), Type:=xlFillDefault
End Sub
Sub nn2()
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 0
Range("K60").Formula = "=SUM(DATA11)"
Range("L60") = Range("L59")
Range("M60").Formula = "=SUM(DATA13)"
Range("N60") = Range("N59")
End Sub


Gruß
Reinhard

Anzeige
AW: Bereich im Code variabel gestalten
06.11.2008 12:53:00
Lanima
Hallo Reinhard,
DATA11 und DATA 13 wurden so aufgezeichnet, es ist jeweils der Bereich Zeile 2 bis Zeile 59 der Spalten K und M, die Spalten sind immer die gleichen.
Beim nächsten Mal können es aber auch mal zb. 75 oder nur 40 Zeilen sein, deshalb brauche ich das dynamisch.
Die beiden Codes erzielen das gleich Ergebnis!
Gruß
Martin
Anzeige
AW: Bereich im Code variabel gestalten
06.11.2008 13:14:26
Rudi
Hallo,
könnte passen, ist aber optimierungsbedürftig:

Sub tt()
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 0
With Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Resize(, 4)
.FormulaR1C1 = "=Sum(R2C;R[-1]C)"
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 14)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub


Gruß
Rudi

Anzeige
AW: Bereich im Code variabel gestalten
06.11.2008 13:22:00
Lanima
Hallo Rudi,
der Code bringt"Laufzeitfehler 1004, Anwendungs- oder objektdefinierter Fehler",
Markiert mir aber keine fehlerhafte Codezeile.
Wo dran kann das liegen?
Gruß
Martin
AW: Bereich im Code variabel gestalten
06.11.2008 13:26:04
Rudi
Hallo,
Tippfehler.

Sub tt()
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 0
With Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Resize(, 4)
.FormulaR1C1 = "=Sum(R2C:R[-1]C)"
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 14)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub


Gruß
Rudi

Anzeige
Fast perfekt
06.11.2008 13:42:13
Lanima
Hallo Rudi,
das funzt wunderbar aber, (es gibt ja immer ein aber ;-)),
er bildet in den Spalten L & N auch eine Summe, dort stehen aber die Maßeinheiten.
Diese beiden Codezeilen müßten noch dynamisch werden:
Selection.AutoFill Destination:=Range("L59:L60"), Type:=xlFillDefault
Selection.AutoFill Destination:=Range("N59:N60"), Type:=xlFillDefault
glaube ich zumindestens.
Gruß
Martin
Anzeige
AW: Fast perfekt
06.11.2008 19:52:00
Rudi
Hallo,
Option Explicit

Sub tt()
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 0
With Cells(Rows.Count, 11).End(xlUp)
.Offset(1, 0).FormulaR1C1 = "=Sum(R2C:R[-1]C)"
.Offset(1, 1) = .Offset(0, 1)
.Offset(1, 2).FormulaR1C1 = "=Sum(R2C:R[-1]C)"
.Offset(1, 3) = .Offset(0, 3)
With .Offset(1, 0).Resize(, 4)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End With
With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 14)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub


Gruß
Rudi

Anzeige
AW: Fast perfekt
07.11.2008 12:45:00
Lanima
Hallo Rudi,
entschuldige die späte Antwort,ich bin erst jetzt dazu gekommen.
Das ist perfekt.
Ich danke Dir vielmals
Gruß
Martin
AW: Bereich im Code variabel gestalten
06.11.2008 13:23:06
Reinhard
Hallo Rudi, Martin,
vielleicht wie nachfolgend.
Aber wenn die Tabelle "schrumpft" müßten ja alle "alten" rahmen weg, da fand ich nix schnelles wie:
Cells.AllBorders=xlNone oder so, deshalb Frage noch offen.

Sub tt()
Cells.Interior.ColorIndex = xlNone
Cells.Font.ColorIndex = 0
With Cells(Rows.Count, 11).End(xlUp).Offset(1, 0).Resize(, 4)
.FormulaR1C1 = "=Sum(R2C;R[-1]C)"
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
For N = 7 To 12
With .Borders(N)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next N
End With
With Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Resize(, 14)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
For N = 7 To 12
With .Borders(N)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next N
End With
End Sub


Gruß
Reinhard

Anzeige
AW: Bereich im Code variabel gestalten
06.11.2008 13:28:02
Lanima
Hallo Reinhard,
ich habe mich unverständlich ausgedrückt. Tschuldigung.
Es ist nicht immer die gleiche Tabelle, die Daten werden jedes Mal neu aus SAP ausgelesen und dann
von mir aufbereitet.
Gruß
Martin
AW: Bereich im Code variabel gestalten
06.11.2008 13:28:00
Rudi
Hallo Reinhard,

da fand ich nix schnelles


Cells.Borders.LineStyle = xlNone
Gruß
Rudi

Anzeige
Danke dir Rudi o.w.T.
08.11.2008 08:53:00
Reinhard

;

Forumthreads zu verwandten Themen

Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Anzeige
Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
spaltenbezeichnungen ändern sich einfach
Julia

Hallo!
ich habe ein Problem: ich habe mehrere .xml dateien erstellt, die spalten oben waren immer durchbuchstabiert. jetzt stehen da aber bei den identischen datein plötzlich zahlen oben...
warum und wie kann ich das rückgängig machen?
dankeschön!
julia
12.08.2008 13:33:00
Thread-ID: 1001182
3 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge
Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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