Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen bin in Millionen bei neuer Spalte

Zeilen bin in Millionen bei neuer Spalte
05.11.2021 10:49:33
Joanna
Hallo an Alle,
ich bin mit meinem Latein am Ende und brauche das kollektive Wissen. Ich habe ein Tabellenblatt mit einer Tabelle, wo per Knopf vorformatierte Spalten eingefügt werden. Funktioniert alles prima, bis auf eine Kleinigkeit. Beim Einfügen der Spalten verlängert sich die Zeilenmenge auf diesem Blatt bis in Millionen, was die ganze Angelegenheit sehr langsam macht, denn ich muss viele dieser Spalten einfügen.
Ich habe alles entfernt was geht. Ich habe keine Idee mehr woran es liegt. auf anderen Blättern habe ich dieses Problem nicht. Was übersehe ich? Danke im Voraus
https://www.herber.de/bbs/user/148954.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen bin in Millionen bei neuer Spalte
05.11.2021 11:15:37
onur
"Ich habe keine Idee mehr woran es liegt" - es liegt an deinem Code natürlich:
Range("l:l").Select 'Selektiere die GANZE Spalte I
Selection.PasteSpecial 'Füge das und das in die GANZE Spalte ein
AW: Zeilen bin in Millionen bei neuer Spalte
05.11.2021 11:52:52
peterk
Hallo
Probier mal:

Sub Test()
Dim ListObj As ListObject
Dim ListName As String
Dim NameStr As String
Dim RangeStr As String
Set ListObj = ActiveSheet.ListObjects(1)
ListName = ListObj.Name
' Position Bitte anpasen
ListObj.ListColumns.Add Position:=11
ListObj.ListColumns.Add Position:=11
' Hier wird das Format von Spalte 8 und 9 übernommen
NameStr = "[" & ListObj.ListColumns(8).Name & "]:[" & ListObj.ListColumns(9).Name & "]"
RangeStr = ListName & "[[#All]," & NameStr & "]"
Range(RangeStr).Copy
' Format in die neuen Spalten einfügen
NameStr = "[" & ListObj.ListColumns(11).Name & "]"
RangeStr = ListName & "[[#Headers]," & NameStr & "]"
Range(RangeStr).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Anzeige
Es geht auch einfacher
05.11.2021 12:08:07
peterk
Hallo
Dieser Code ist besser

Sub Test2()
Dim ListObj As ListObject
Dim ListName As String
Set ListObj = ActiveSheet.ListObjects(1)
ListName = ListObj.Name
' Position Bitte anpasen
ListObj.ListColumns.Add Position:=11
ListObj.ListColumns.Add Position:=11
' Hier wird das Format von Spalte 8 übernommen und in Spalte 11 eingefügt
ListObj.ListColumns(8).Range.Copy
ListObj.ListColumns(11).Range.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' Hier wird das Format von Spalte 9 übernommen und in Spalte 12 eingefügt
ListObj.ListColumns(9).Range.Copy
ListObj.ListColumns(12).Range.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Peter

Anzeige

41 Forumthreads zu ähnlichen Themen

Teilmenge verbinden mit SummeZählenWenn
pitt_111@gmx.de

Hallo Leute,
brauche dringend Hilfe.
SummeZählen wenn funktioniert in der Beispieltabelle, jedoch komme ich mit
der Teilmenge nicht weiter.
Hoffe mir kann jemand helfen.
Habe eine kleine Beispieltabelle angehangen, ich denke meine Frage wird damit klar.
Hier der Link zur...
05.02.2009 07:26:00
Thread-ID: 1047271
5 Beiträge
Anzeige
Erbitte Hilfe bei IstFehler / Summewenn
Thore

Hallo ihr Lieben,
ich habe folgende 2 Probleme:
1.
In Zelle AE1 =Summewenn(G:G;"*Ende*";Q:Q)
In AC1 steht der Text "Ende"
In Zelle B1 setze ich nun mit folgender Formel zusammen:
=AE1&" "&AC1&" €"
Damit möchte ich mir die "Überschriftenzelle" sparen, di...
03.06.2012 20:33:09
Thread-ID: 1265984
3 Beiträge
Bitte um Hilfe bei ZÄHLENWENN/SVERWEIS+SUMMEWENN
Thore

Hallo und guten Abend,
gestern noch gelöst und heute schon wieder in der Sackgasse ;)
Schaut euch bitte mal mein Anliegen an.
Ich komme einfach nicht auf die Lösung.
Die Datei https://www.herber.de/bbs/user/80431.xlsx wurde aus Datenschutzgründen gelöscht
Ich möchte:
We...
04.06.2012 23:12:42
Thread-ID: 1266121
3 Beiträge
Anzeige
Bitte um Hilfe für SUMME(WENN(ISTZAHL...
Tom

Moin liebe Excelfreunde,
https://www.herber.de/bbs/user/86620.xlsx
Ich stehe gerade voll auf dem Schlauch.
In angehängter Tabelle habe ich eine Formel wie folgt:
{=SUMME(WENN(ISTZAHL(A3:Q3);A3:Q3))} = Matrixformel
Die funktioniert auch perfekt.
Wie aber muss ich die Umsc...
29.07.2013 16:07:17
Thread-ID: 1324679
3 Beiträge
Nebiefrage: Summe in Filtern berechnen?
Webfox

Hallo!
Ich habe eine Tabelle mit mehreren Kategorien und setze dort die automatischen Filter ein, um mir einzelne Kategorien anzeigen zu lassen. Es gibt am Ende der Tabelle drei Spalten für die Kosten in Brutto, Netto und enth. MwSt.Rechne ich mit der Funktion "Summe" in der Haupttabelle die...
10.07.2002 16:50:25
Thread-ID: 135446
3 Beiträge
Summewenns / zählenwenns& summeprodukt kombinieren
Nick

Hi, ich versuche eine summewenns/zählenwenns und summenprodukt formel zu kombinieren, bin aber leider nicht sehr erfolgreich. Vielleicht kann mir einer von euch bei meinem Problem helfen.

ID NAME OTS T qty
ATU12345 Meier Thomas no 2
ATU12345 Thomas Meier no...
21.07.2014 16:10:23
Thread-ID: 1371410
6 Beiträge
Kombination aus SummeWenn & Sverweis
André

Hallo,
ich versuche schon die ganze Zeit SummeWenn & Sverweis zu kombinieren - bisher noch ohne Erfolg.
In Tabellenblatt 1 stehen dabei bspw. konkrete Fahrzeugnamen & die Zuordnung zu einer Fahrzeugklasse.
In Tabellenblatt 2 steht in jeder Zeile ein Käufer, der einen bestimm...
10.05.2018 17:24:40
Thread-ID: 1623587
2 Beiträge
Powerpivot Summewenns
Stephan

Hallo zusammen. Da mir hier schon oft geholfen werden konnte, wende ich mich wieder mal an euch. Ich habe leider in der Suche nichts gefunden.
Folgender Fall: ich möchte in Powerpivot ein berechnetes Feld einfügen:
Dort soll das Feld Differenz_SOLL_IS) summiert werden, aber nur wenn der...
08.06.2018 09:45:32
Thread-ID: 1627893
2 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
9
2
2
1
2
2
5
1
1
3
1
2
2
1
2
1
1
2
2
7
9
1
5
10