Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1208to1212
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
1208to1212
1208to1212
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ende der Tabelle mit Makro finden

Ende der Tabelle mit Makro finden
Jan
Hallo zusammen,
komme mit einer Funktion in meinem Makro nicht weiter und bräuchte eure Hilfe.
Ich habe eine Täglich zu bearbeitende Produktliste. Diese weist Täglich eine veränderte Anzahl von Zeilen auf. Was immer gleichbleibend ist, ist die Zeile 1. Sie beinhaltet die Attribute für jede Spalte.
In Spalte M Zeile 1 (bislang ist Spalte M komplett leer) füge ich nun das Attribut "Zustand" ein.
Bis zu diesem Punkt habe ich keine Probleme.
Nun möchte ich ab Zelle M2 bis an das Ende der Tabelle, sprich bis zur letzten ausgefüllten Zeile das Wort "neu" einfügen.
Bei der Aufzeichnung des Makros hatte ich eine Tabelle mit 15500 Zeilen. Dies hat sich Excel gemerkt und füllt nun alle folgenden Tabellen bis Zeile 15500 aus.
Mein Problem ist eben das die Tabelle mal mehr und mal weniger Zeilen aufweist.
In der Manuellen Bearbeitung ist dies ja kein Problem. Doch habe ich leider keine Ahnung wie man dies in ein Makro einbinden kann.
Würde mich sehr über eure Hilfe freuen.
Range("M1").Select
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "Zustand"
Range("M2").Select
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "neu"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M15500")
Range("M2:M15500").Select
Range("M2").Select
AW: Ende der Tabelle mit Makro finden
10.04.2011 20:59:40
Hajo_Zi
Halo Jan,
Letzte Zelladresse mit VBA
(unabhängig von der Spalte) Zeilennummer ermitteln
Die allerletzte benutzte Zeile, unabhängig von der Spalte liefert:
MsgBox Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row

AW: Ende der Tabelle mit Makro finden
10.04.2011 21:18:38
Jan
Hallo Hajo,
danke für die schnelle Antwort.
Ich habe das eben mal versucht. Hat aber noch nicht richtig geklappt.
Bin mir allerdings nicht sicher ob ich es richtig eingebunden habe.
Auf diese weise habe ich lediglich in Zelle M2 den eintrag "neu".
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "Zustand"
Range("M2").Select
Selection.NumberFormat = "@"
ActiveCell.FormulaR1C1 = "neu"
Range("M2").Select
MsgBox Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Range("M2").Select
Anzeige
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:28:32
Hajo_Zi
Hallo Jan,
das ist doch nur die häjfte des Codes.
Selection.AutoFill Destination:=Range("M2:M" & ActiveSheet .UsedRange.SpecialCells(xlCellTypeLastCell).Row)
Gruß Hajo
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:09:39
Gerd
Hallo Jan,
so wird die letzte Zeile anhand des letzten Wertes in Spalte A ( , 1) ermittelt.
Range("M2:M" & cells(rows.count, 1).End(xlup).Row).Value= "neu"
Gruß Gerd
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:33:10
Jan
Hallo Gerd,
auch deine Version fuktioniert bestens!
Vielen Dank
Jan
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:13:38
Reinhard
Hallo Jan, 
Sub Makro1()
Dim Zei As Long
With Worksheets("Tabelle1")
Zei = .Cells(.Rows.Count, 1).End(xlUp).Row
.Columns(13).NumberFormat = "@"
.Cells(1, 13).Value = "Zustand"
.Range(.Cells(2, 13), .Cells(Zei, 13)).Value = "neu"
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:31:59
Jan
Hallo Hajo,
das funktioniert bestens!
Vielen Dank
Jan
AW: Ende der Tabelle mit Makro finden
10.04.2011 21:36:14
Jan
Hallo Reinhard,
Danke für den kompletten Code.
hat mir sehr geholfen
Gruß
Jan

302 Forumthreads zu ähnlichen Themen

Summenprodukt am Ende der Tabelle
Bernhard

Wertes allwissendes Forum!
Ich probier jetzt schon seit zwei Stunden eine Summenproduktformel ans Ende meiner Tabelle zu bringen, aber ich bekomme es einfach nicht hin.
In Spalte G soll das Summenprodukt von Spalte I und Spalte J gebildet werden, dann durch die Summe aus Spalte K getei...
08.03.2011 10:53:51
Thread-ID: 1204725
4 Beiträge
Anzeige
Spalte mit selben Wert bis Ende der Tabelle fuelle
Marvin

Hallo zusammen,
Ich habe folgendes Problem:
Ich habe eine Tabelle mit mehreren Spalten von denen alle ausgefuellt sind, ausser eine, Spalte O. In die soll ueberall der Wert "GBP" eingefuegt werden, allerdings nur bis zum Ende der Tabelle.
Bisher habe ich diesen Code: Sub ContentGBP(...
16.01.2015 15:58:30
Thread-ID: 1403249
9 Beiträge
Autofill bin Ende der Tabelle in anderer Datei
Marvin

Hallo zusammen,
ich habe folgenden Code, der mir die Formel in Zelle A1 bis zum Ende der Tabelle mit einem Autofill "kopiert":
Private Sub CommandButton1_Click() letzte = Cells(Rows.Count, 3).End(xlUp).Row Range("A1").AutoFill Destination:=Range("A1:A" & letzte) End Sub Ich probier...
03.02.2015 11:10:32
Thread-ID: 1406890
4 Beiträge
Anzeige
VBA bis Ende der Tabelle
Michael

Hallo,
mit folgendem per Recorder aufgezeichneten Code wähle ich einen Bereich aus um ihn zu formatieren:
Range("J3:O3").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Interior
.Pattern = xlGray...
28.05.2015 17:03:42
Thread-ID: 1428211
3 Beiträge
erstelltes Tabellenblatt immer wieder verwenden
Jo

Hallo zusammen,
nachdem mir vorhin schon bei einem anderen Problem sehr gut geholfen wurde, habe ich hier die nächste Hürde.
Ich habe eine Excel-Datei mit 2 Tabellenblättern.
In der Tabelle1 stehen meine Grunddaten in mehreren Zeilen und Spalten. Alle 16 Zeilen wiederholt sich das...
27.10.2015 10:49:51
Thread-ID: 1454665
5 Beiträge
Zeilen abhängig aus/einblenden in anderer Tabelle
Martin

Hallo, habe das Forum durchsucht, aber nicht die Lösung für meine Frage gefunden:
In Tabelle2 ändert sich der Wert in Zelle H1 über die Formel "=Tabelle1!$D$26".(entweder Wert "1" oder "2"), Nun möchte ich, dass sich in Tabelle2 die Zeilen 5 bis 39 ausblenden, wenn in Tabelle2 in Zelle H1 d...
03.05.2016 12:56:30
Thread-ID: 1491659
13 Beiträge
Ansichtgröße der Tabelle festlegen
Hartmut Mengeler

Hallo, ich möchte ein Tabellenblatt als Formular abspeichern. Hierbei habe ich die am Bildschirm sichtbaren Zellen farblich makiert. Nun soll vermieden werden, daß der Anwender mit den Scrollleisten das Formular
hin und herschieben kann, so daß er aus dem Formular herauskommt. Ist dies machb...
14.08.2002 13:58:44
Thread-ID: 148524
3 Beiträge
Pivot-Tabelle ändert "unterliegendes" Blattformat
Tim

Hallo,
ich habe eine Pivot-Tabelle, welche ich durch verschiedene Slicer filtern kann. Das heißt, die Anzahl der gefüllten Zeilen ändert sich in der Pivot-Tabelle.
Nun ist es so, dass ich mein gesamtes Worksheet dunkelgrau gefärbt habe.
Wenn ich nun die Tabelle filtere, sodass stat...
02.08.2017 11:29:58
Thread-ID: 1571975
5 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
3
7
8
3
8
2
4
12
2
4
6
6
3
3
2
1
3
4
3
4
3
10
5
3
8