Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle nur für beschriebenen Bereich

Forumthread: Tabelle nur für beschriebenen Bereich

Tabelle nur für beschriebenen Bereich
04.02.2008 14:15:29
Lisa
Hallo zusammen
Ich habe vor mir für ein Tabellenblatt eine Tabelle über ein Macro einfügen zu lassen.
Ich habe Daten von A10 bis E ...
Hie ist auch schon mein Problem.
Der Datenbereich kann mal a10:e100 sein, aber auch nur a10:e20.
Ich möchte also immer nur den beschriebenen Bereich A10:E... mit einer Tabelle belegen.
Erkenne also den beschriebenen Bereich und lege eine Tabelle drüber
Kann mir hierzu jemand helfen?
Liebe Grüße Lisa

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 14:34:00
Ramses
Hallo
"...Erkenne also den beschriebenen Bereich und lege eine Tabelle drüber..."
Sorry,... es ist zwar Fasnacht, aber auch übermorgen würde ich hier kein Wort verstehen von dem was du eigentlich willst.
Gruss Rainer

AW: Tabelle nur für beschriebenen Bereich
04.02.2008 14:39:00
Lisa
hmm
Also war schon blöde von mir, Rahmen meine ich ja auch!
Tut mir leid. War eine wenig unüberlegt

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 14:48:00
Ramses
Hallo
Probier mal
Sub DrawBorder()
    Dim lastRow As Long, startCol As Integer, startRow As Integer, endCol As Integer
    startCol = 1 'Spalte A
    startRow = 10 'Zeile 10
    endCol = 5 'Spalte E
    lastRow = Cells(Rows.Count, endCol).End(xlUp).Row
    With Range(Cells(startRow, startCol), Cells(lastRow, endCol))
        'Alte Rahmen entfernen
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
    End With
End Sub

Gruss Rainer

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 14:54:18
Rudi
Hallo Rainer
das,

'Alte Rahmen entfernen
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone


geht doch auch in einer Zeile:


.Borders.Linestyle=xlnone


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Helau und Alaaaf,... natürlich :-) o.w.t.
04.02.2008 14:55:00
Ramses
...

AW: Tabelle nur für beschriebenen Bereich
04.02.2008 15:05:00
Lisa
Hallo Rainer
Das ist schon fast das was ich suche.
Kannst du auch festlegen das jede Celle einen Rahmen bekommt?
Der Außenrahmen kann aber ruhig in der stäke bleiben, die anderen einzelnen Zellen können dünner umrahmt sein.
Tut mir leid, ich war etwas neben der Spur mit meiner Tabelle.
Lieben Gruß Lisa

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 15:10:00
Rudi
Hallo,
sowas gibt der Recorder her:

With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 15:29:00
Lisa
Hallo zusammen
Jetzt bin ich völlig durcheinander.
Mit dem Code Ausschnitt kann ich nichts anfangen.
Ich weiss nicht wohin damit.
wenn ich mit dem Recorder einen Rahmen aufzeichne, kann ich das doch nur für einen bestimmten Bereich.
Der Bereich ist doch aber variabel.
Wie soll ich das mit dem Recorder machen?
Ich habe versucht deinen Codeausschnitt mit dem Code von Rainer zuverarbeiten, mit dem Ergebniss das nun garnichts mehr läuft.
Gruß Lisa

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 15:32:19
Rudi
Hallo,

Sub DrawBorder()
Dim lastRow As Long, startCol As Integer, startRow As Integer, endCol As Integer
startCol = 1 'Spalte A
startRow = 10 'Zeile 10
endCol = 5 'Spalte E
lastRow = Cells(Rows.Count, endCol).End(xlUp).Row
With Range(Cells(startRow, startCol), Cells(lastRow, endCol))
'Alte Rahmen entfernen
.Borders.LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.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
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Tabelle nur für beschriebenen Bereich
04.02.2008 16:02:44
Lisa
Danke Rudi
So klappt es.
Lieben Gruß Lisa

Forumthreads zu verwandten Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
nach letzter beschriebener Zeile einfügen
lisa

Hallo zusammen
Ich habe einen kopierten Datensatz, der in eine neue Tabelle1 ind die nächste frei Zeile eingefügt werden soll.
Hat hier jemand eine Idee, wie ich die erste freie Zelle in Spalte a finden kann und dort dann die Werte eingefügt werden?
Liebe Grüße Lisa
03.02.2009 17:36:42
Thread-ID: 1046730
8 Beiträge
Anzeige
formel nur für beschriebenen <bereich kopieren!
lisa

Hallo zusammen
Wie kann ich hier diesen Code abändern, so dass es nicht mehr heißt kopiere die Formel aus j2:j10000, sondern von j2: ..soweit, wie links von j2 die Zeilen beschrieben sind?
Leider habe ich von VBA wenig Ahnung und bin wieder einmal mehr auf eure Hilfe angewiesen!
P...
31.03.2009 17:08:20
Thread-ID: 1065715
4 Beiträge
Nur beschriebene Zellen Listen
Sebastian

Hallo zusammen,
ich habe ein Programm in dem in einer Userform nach einem bestimmten Befehl eine Listbox aus einem Tabellenblatt befüllt wird, der Code dafür ist folgendermaßen:
ListBox2.AddItem Cells(zeiger, 4).Value
Zeiger bezieht sich dabei auf den Auswahlbereich
Alles funkti...
04.07.2009 14:11:52
Thread-ID: 1086364
14 Beiträge
Beschriebenen Bereich erkenen!
lisa

Hallo zusammen
Ich habe mit dem Macrorecorder folgenden Code aufgenommen.
Ich erstelle damit ein Diagram. Nun möchte ich den Bereich aber nicht festlegen, so wie im VBA- Code, sondern der Bereich soll immer anhand des Beschriebenen Bereiches selbsständig erkannt werden.
Gibt es hier...
17.09.2009 16:02:57
Thread-ID: 1103637
6 Beiträge
beschriebene Zellen in Spalte finden
Timothy

Hallo miteinander,
habe folgendes Problem und bräuchte von euch mal wieder etwas Hilfe....;(
Mir liegt ähnliches Sheet vor: Spalte A Spalte B Spalte C Beschreibung Makro Inhalt FPGA xxx xxx xxx xxx xxx xxx CPU xxx xxx xxx xxx PLL xxx xxx
...
23.01.2010 13:15:54
Thread-ID: 1132300
6 Beiträge
Beschriebene Zelle innerhalb eines Bereichs
Christoph

Hallo zusammen!
Ich hab da mal wieder ein Problem:
Ich möchte mittels VBA ermitteln, ob in einem bestimmten Bereich in mindestens 1 Zelle etwas hinein geschrieben wurde...
Der Hintergrund ist: Ich schicke Listen an mehrere Leute, die ich dann nach Rück-Erhalt per Makro einlese.
...
24.06.2010 07:49:28
Thread-ID: 1163798
8 Beiträge
erste beschriebene Zelle finden in Wenn Formel
Christopher

Hallo Excelfreunde,
ich habe da ein kleines Problem und hoffe daher auf eure Hilfe.
Mir liegt eine Tabelle vor, die ich nicht auf zwei Sheets aufteilen kann, weil mittels Pilot Ist- und Planwerte eingespielt werden.
Meine eingespielte Tabelle sieht wie folgt beispielhaft aus:
A...
10.09.2010 11:56:12
Thread-ID: 1176826
3 Beiträge
Letze beschriebene Zelle in Spaltenbereich anzeige
daniel

Hallo Zusammen,
ich möchte für die Arbeit mit einer Excel Tabelle einen Code generieren.
Also ich habe 2 Spalten.
In denen sind werte von anderen excel tabellen verknüpft.
Und es kommt immer eine Zeile dazu, wobei es vorkommt das auch mal leere Zeilen dazwischen sind.
Und i...
26.03.2011 12:27:07
Thread-ID: 1207703
2 Beiträge
Anzeige
letzte beschriebene Zeile kopieren
wowanick

Hallo, kann mir jemand sagen wie ich die Formatierung der letzten beschriebenen Zeile in meiner Tabelle kopieren und dann darunter wieder einfügen kann? Und das Ganze mit einer Schaltfläche.
24.04.2011 15:33:09
Thread-ID: 1211628
6 Beiträge
Anzeige
letzte beschriebene Zeile erfassen
wowanick

Hallo, kann mir jemand sagen wie ich die Formatierung und die Formeln der letzten beschriebenen Zeile in meiner Tabelle kopieren und dann darunter wieder einfügen kann? Und das Ganze mit einer Schaltfläche?
09.05.2011 15:35:31
Thread-ID: 1213645
5 Beiträge
Letzte beschriebene Zeile ???
Beate

Hallo Forum,
kann mir jemand bitte bei folgendem Problem helfen:
habe eine Mappe mit mehreren Sheets, darunter auch eine Vorlage(Daten).
Die darin enthaltenen Daten (ca. 41 einzelne Zellen) sollen in eine geschlossene Mappe, anhängend an vorhandene Daten eingefügt werden.
Das ve...
26.07.2011 14:46:14
Thread-ID: 1223688
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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