Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array Datensatz auf "" setzen

Array Datensatz auf "" setzen
12.09.2018 10:16:51
UweD
Hallo Profis
Ich habe eine große Tabelle mit ca 12000 Zeilen und 11 Spalten, in der ich per VBA Veränderungen vornehmen muss.
Da das ewig dauert,
hab ich das alles in ein Array übernommen (klappt)
auch das Vergleichen / Arbeiten innerhalb der Sätze klappt.
Jetzt möchte ich aber alle Felder in einem Satz auf LEER setzen.
Hab bisher wenig mit Array gearbeitet:
Geht das mit einem Befehl, oder muss ich alle 11 Felder einzeln (per Schleife) leeren?
Beispiel:
das Array hätte folgenden Inhalt 

A1	B1	C1	D1	E1	F1	G1	H1	I1	J1	K1
A2	B2	C2	D2	E2	F2	G2	H2	I2	J2	K2
A3	B3	C3	D3	E3	F3	G3	H3	I3	J3	K3
A4	B4	C4	D4	E4	F4	G4	H4	I4	J4	K4
Jetzt will ich alle Felder in Satz 3 leeren
ARR(3) ="" klappt nicht
sowas in der Art Arr (3, 1 to 11)
Gruß UweD

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array Datensatz auf "" setzen
12.09.2018 10:21:40
Gerd
Hallo Uwe,
m.W. geht das nur per Schleife.
Gruß Gerd
AW: Array Datensatz auf "" setzen
12.09.2018 10:25:42
Daniel
Hi
nein, musst du per Schleife machen.
mir ist jetzt keine Mehtode bekannt, mit welcher du in einem 2-D-Array ganze Zeilen oder Spalten mit einem Befehl bearbeiten kannst.
Ist für die Performance kein Problem, Schleifen mit Arrays sind sehr schnell.
Gruß Daniel
AW: Array Datensatz auf "" setzen
12.09.2018 10:33:20
Daniel
wie gesagt, muss per Schleife gemacht werden.
wenn du sowas an mehreren Stellen im Code brauchst, kannst du dir dafür ja eine entsprechene Unterroutine erstellen, die du dann nur aufrufst:
dh diese Subroutine als eigenständiges Makro 
Sub ArrayZeileBearbeiten(ByRef DeinArray, Zeile as Long, Wert)
Dim  Spalte as Long
for Spalte = Lbound(DeinArray, 2) to Ubound(DeinArray, 2)
DeinArray(Zeile, Spalte) = Wert
Next
End Sub
und in deinem Hauptcode reicht dann der Aufruf: 
Call ArrayZeileBearbeiten(ARR, 3, "")
durch die Übergabe des Arrays mit byRef in die Unterroutine wird auch das Array in deinem Hauptprogramm bearbeitet.
Gruß Daniel
Anzeige
AW: Array Datensatz auf "" setzen
12.09.2018 10:40:58
Frank
Hallo Uwe,
was möchtest Du erreichen? Soll die gesamte »Zeile« aus dem Array entfernt werden oder sollen die einzelnen Felder alle auf "" gesetzt werden? Im letzteren Fall musst Du die Felder wohl in einer Schleife einzeln setzten:
For i = LBound(ARR(3)) to UBound(ARR(3))
ARR(3,i) = ""
next
Ich bin mir zwar nicht ganz sicher, aber eine komplette »Zeile« aus Deinem 2-dimensionalen Array zu löschen, geht glaube ich nicht. Du könntest das komplette Array in ein zweites kopieren und dabei die besagte Zeile auslassen.
Eine andere Möglichkeit wäre, statt eines 2-dimensionalen Arrays eine Collection zu erstellen, die dann 1-dimensionale Arrays für jeweils eine Zeile enthält. Bei Collections gibt es nämlich die Remove-Methode, mit der Du dann gezielt eines dieser Array löschen kannst.
VG Frank
Anzeige
AW: Array Datensatz auf "" setzen
12.09.2018 10:52:38
UweD
Hallo ihr 3
Vielen Dank für die Antworten.
hab es jetzt so gelöst und es klappt Bestens

'überflüssige Zeile leeren
For S = LBound(Arr, 2) To UBound(Arr, 2)
Arr(i, S) = Empty
Next

i ist dabei wieder Bestandteil eine anderen Schleife.
LG UweD
Noch ne Frage...
12.09.2018 11:31:55
UweD
Wie ist es dann mit "Satz kopieren"
Also Arr(4, 1 bis 11) soll den Inhalt von Tmp(1, 1 bis 11) erhalten.
geht das auf einen Schlag, oder auch nur wieder per Schleife
LG UweD
...wieder Schleife! (owT)
12.09.2018 11:34:51
EtoPHG

Danke, ich habs befürchtet owT
12.09.2018 11:38:59
UweD
FYI: 4 Sek anstelle 12 Min
12.09.2018 13:39:51
UweD
ich bin begeistert wie schnell das mit Arrays geht
LG UweD

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
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
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4