Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA dynamischen Tabellenbereich

VBA dynamischen Tabellenbereich
29.08.2014 14:00:45
Sioo
Hallo, möchte gerne ein Macro erstellen um einen dynamischen Bereich zu markieren und dann als Tabelle zu formatieren. Habe den Macro recorder benutzt und folgendes erhalten:
Sub fTabelle()
Sheets("M1").Activate
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1:D5224").Select
Range("B8").Activate
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$5224"), , xlYes).Name = _
"Tabelle3"
Range("Tabelle3[#All]").Select
End Sub
Der erste Teil ist richtig, die 3 Zeilen und die Spalte A:A müssen immer gelöscht werden (da die SAP Datei immer so formatiert ist).
Aber der Teil Range("A1:D5224").Select ist dynamisch. Manchmal sind da mehr Zeilen, manchmal weniger. Würde gerne den zweiten Part dynamisch gestalten. (Letzte Zeile und Spalte automatisch erkennen und dann als Tabelle formatieren)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA dynamischen Tabellenbereich
29.08.2014 14:15:52
yummi
Hallo Sioo,
ungetestet 

Sub fTabelle()
Sheets("M1").Activate
Rows("1:1").Delete Shift:=xlUp
Columns("A:A").Delete Shift:=xlToLeft
Rows("2:2").Delete Shift:=xlUp
letztezeile = Sheets("M1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$" & letztezeile), , xlYes).Name = _
"Tabelle3"
Range("Tabelle3[#All]").Select
End Sub
Gruß
yummi

AW: VBA dynamischen Tabellenbereich
29.08.2014 14:26:14
Sioo
Hallo, danke für die schnelle Antwort. Das mit der letzten Zeile hat geklappt aber letzte Spalte nicht.
Habe eine Beispieldatei angehängt, wie es aus SAP kommt. https://www.herber.de/bbs/user/92387.xlsx

Anzeige
AW: VBA dynamischen Tabellenbereich
29.08.2014 14:40:56
yummi
hallo Sioo,
sry übersehen :-)
Du musst das "D" noch ersetzen, die letzte Spalte der zeile 4 holst du dir so
letztespalte = Sheets("M1").Cells(4, 256).End(xlToLeft).Column
dann im Range, wo das D steht letztespalte analog zu letztezeile einfügen
Gruß
yummi

AW: VBA dynamischen Tabellenbereich
29.08.2014 15:07:47
yummi
Hallo Sioo,
nimm folgenden Code, Du musst nur darauf achten, dass das Tabellenblatt hier M1 heisst

Option Explicit
Sub fTabelle()
Dim letztezeile As Long
Dim letzteSpalte As Integer
Sheets("M1").Activate
Rows("1:1").Delete Shift:=xlUp
Columns("A:A").Delete Shift:=xlToLeft
Rows("2:2").Delete Shift:=xlUp
letztezeile = Sheets("M1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
letzteSpalte = Sheets("M1").Cells(4, 256).End(xlToLeft).Column
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$" & WandleZahlInBuchstaben( _
letzteSpalte) & "$" & letztezeile), , xlYes).Name = _
"Tabelle3"
Range("Tabelle3[#All]").Select
End Sub
Function WandleZahlInBuchstaben(ByVal iWert As Integer) As String
Dim Spaltenbuchstabe As String
Spaltenbuchstabe = Right(Columns(iWert).Address, _
Len(Columns(iWert).Address) - _
InStrRev(Columns(iWert).Address, "$"))
WandleZahlInBuchstaben = Spaltenbuchstabe
End Function
https://www.herber.de/bbs/user/92390.xlsm

Anzeige
AW: VBA dynamischen Tabellenbereich
29.08.2014 15:15:44
Sioo
Danke schön! Klappt bestens

41 Forumthreads zu ähnlichen Themen

Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
Anzeige
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge
Anzeige
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
VBA Range definieren
Jack

Hallo liebe Exelaner
ich hab mal wieder eine kleine Frage, bei der ich einen denkanstoß benötige
Ich habe eine Tabelle
In Spalte A sind in unterschiedlichen Abständen Werte
zb. A2 = 100 und A40 = 150 und A42 = 60
In Spalte B sind in ANDEREN Abständen Werte
zb. B5= 3...
05.10.2012 18:27:07
Thread-ID: 1280712
9 Beiträge
Summenprodukt nach als Tabelle formatieren
Heinz

Guten Morgen liebe Excellenten,
Ich habe - wie könnte es anders sein, ein Problem ;-)
Ich habe die nachfolgende Tabelle mit "als Tabelle Formatieren"
als Tabelle formatiert (toller Satz).
Die Tabelle hat Excel-intern wohl den Namen Tabelle5.
Datum ............Soll.......Habe...
16.11.2012 07:48:44
Thread-ID: 1286892
3 Beiträge
VBA Mastertabelle erstellen
WalterK

Hallo,
bei meiner Internetsuche bin ich auf den folgenden Code zur Erstellung einer Mastertabelle gestossen. Es sollen die Daten aller in einem Ordner befindlichen Dateien in 1 Blatt zusammengeführt werden.
Allerdings kommt bei der folgenden Zeile die Meldung: Laufzeitfehler 1004: Anwen...
27.07.2013 11:38:45
Thread-ID: 1324472
3 Beiträge
Als Tabelle formatieren
Markus

Guten Abend,
nach Excel 2003 wechselte ich auf Office 2010 (auch die Firma wechselte).
Nachdem ich las, der Bereich einer Tabelle, ich nannte diese früher "DATENBANK", soll man jetzt den Befehl "als Tabelle formatieren" machte ich das auch.
Aber ..
Aus zwingenden Gründen musste...
13.08.2013 19:25:23
Thread-ID: 1326769
4 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
1
21
4
5
1
2
8
2
2
3
2
4
2
3
1
5
6
4
5
1
2
2
5
2
2