Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1-dimens. Array auf 2 Dimensionen erweitern

Forumthread: 1-dimens. Array auf 2 Dimensionen erweitern

1-dimens. Array auf 2 Dimensionen erweitern
Peter
Hallo zusammen
Ist es möglich ein Array um eine Dimension zu erweitern, ohne den bestehenden Inhalt zu verlieren.
Ich kenne Redim Preserve xA(fest, var), das geht.
Ich möchte aber zuerst zB die Monate in die erste Dimension kopieren
xA = Array("Jan.", "Febr.", "März",) etc.
Dann möchte ich dem Array weitere Dimentsion hinzufügen
redim preserve xA(ubound(xA, 1) > geht nicht!!!
Ich habe es jetzt so gemacht - gibt es eine elegantere Lösung? 
Sub X_Array()
Dim xA As Variant, xB As Variant, j As Integer
xA = Array("Jan.", "Febr.", "März", "April")
ReDim xB(UBound(xA), 1)
For j = 0 To UBound(xA)
xB(j, 0) = xA(j)
Next j
ReDim Preserve xB(UBound(xA), 2)
End Sub

Danke für Tips
Pedro
Anzeige

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

Betreff
Benutzer
Anzeige
Du hast xA bereits als Variant festgelegt,...
12.11.2010 18:33:20
Luc:-?
…Peter,
der kann dann zwar ein Datenfeld aufnehmen, aber das war's dann auch. Es könnte sein, dass es klappt, wenn du xA als Datenfeld deklarierst, also xA(). Die Zuweisung mit der Array-Fkt könnte dann immer noch klappen (mit Split war es wohl so, wenn ich mich recht erinnere!). Übrigens kannst du doch alle Monatsnamen leerzeichen-getrennt in eine String-Konstante schreiben und die dann als Argument der vbFkt Split xA zuweisen… Ggf fktt dann allerdings das Erweitern mit Redim Preserve nicht mehr! Also einfach mal ausprobieren. Wenn nicht, musst du es halt so lassen…
Gruß Luc :-?
Anzeige
AW: Du hast xA bereits als Variant festgelegt,...
13.11.2010 09:35:48
Peter
Hallo Luc
danke für Deine Bemühungen - ich habe eine supperlösung bekommen mit application.transponse(xA)
machs guet
Peter
meinst Du so?
12.11.2010 23:16:55
Tino
Hallo,
wenn Du dieses eindimensionale Array drehst,
bekommt dieses automatisch die zweite hinzugefügt.
Sub X_Array()
Dim xA()
Dim nCount As Long

xA = Array("Jan.", "Febr.", "März", "April")
'Array drehen, dadurch entsteht die zweite Dimension 
xA = Application.Transpose(xA)
'Array hat bereits zweite Dimensionen, diese um eine weiter Spalte erweitern 
Redim Preserve xA(Lbound(xA) To Ubound(xA), Lbound(xA, 2) To Ubound(xA, 2) + 1)

'Beispiel füllen************************************* 
For nCount = Lbound(xA) To Ubound(xA)
    xA(nCount, 2) = DateSerial(Year(Date), nCount, 1)
Next nCount
Range("A2").Resize(Ubound(xA), Ubound(xA, 2)) = xA

End Sub
Gruß Tino
Anzeige
AW: meinst Du so?
13.11.2010 09:34:45
Peter
Hallo Tino - sieht gut aus - kannte die Funktion application.transpose(xA) nicht - interessant, dass danach das Array bei 1 und nicht bei 0 beginnt.
es schöns Wochenänd
Peter
Das ist die TabBlFkt MTRANS! owT
13.11.2010 20:00:08
Luc:-?
:-?
;

Forumthreads zu verwandten Themen

Worksheet Change - Nur bei Änderung durch Userinte
Ina

Hallo Forum,
wie kann ich das Worksheet_Change-Ereignis so beschränken, dass es nur beim Eingriff über das User-Interface ausgelöst wird; Sheet-Änderungen über den Code sollen nicht zum Ereignis führen.
Kann mir jemand weiterhelfen?
Vielen Dank schonmal!
Gruß
Ina
19.08.2008 09:10:00
Thread-ID: 1002791
5 Beiträge
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
Anzeige
SVerweis - Wert suchen à la "Offset 1,3"
Bernd

Hallo Freaks,
ich möchte einen Wert per Sverweis ermitteln, der " 3 Spalten rechts + 1 Zeile runter" steht.
Siehe bitte einfaches Beispiel anbei.
https://www.herber.de/bbs/user/55520.xls
Vorab besten Dank für Eure Hilfe und Mühen.
Grüße
Bernd
19.09.2008 14:21:11
Thread-ID: 1011046
7 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Anzeige
Hyperlink soll je nach KW auf andere Datei verw.
Alex

Hallo,
gleich einmal vorweg, ich bin neu im Forum und hoffe, dass ihr mir bei meinem kleinen Hyperlink- Problem helfen könnt.
Folgende Aufgabe sollte gelöst werden.
Ich möchte einen Hyperlink einrichten, der automatisch je nach Kalenderwoche auf das entsprechende Bestellformular ve...
11.10.2008 12:37:00
Thread-ID: 1015732
3 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
1.Upload - 2. nach Download -> Fehler #NV
Matthias

Hallo Experten
(Level bitte nicht ganz so ernst nehmen)
Habe hier eine Datei hochgeladen.
(hab mir echt viel Zeit genommen und Mühe gegeben für meinen Namensvetter eine Lösung anzubieten)
https://www.herber.de/forum/archiv/1020to1024/t1020743.htm#1020754
Als ich nun prüfen...
31.10.2008 10:18:15
Thread-ID: 1020805
7 Beiträge
Anzeige
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 Beiträge
UserForm2 Abfrage in UserForm1 auswerten
angeldust

Hallo,
habe eine UserForm1 und eine UserForm2 , die UF2 fragt den Benutzer ab : Ja / NEIN wenn man einen bestimmten Button in der UF1 betätigt,
so nun will cih aber das Ergebnis JA / NEIN in der UF1 auswerden und dementsprächend Funktionen zuweisen, wie ist da die Syntax bitte?
als...
17.11.2008 11:26:11
Thread-ID: 1025130
3 Beiträge
100 Dateien nach Wert durchs. und in neue Datei...
Jessi

Hallo zusammen,
ich habe ein Problem, bzw. einen riesen Arbeitsaufwand vor mir, sofern ich das nicht per VBA gelöst bekomme.
Ich habe ca. 100 Dateien (Excel) die logisch nummeriert sind als Name:
Bsp:
1.xlsm
2.xlsm
(...)
99.xlsm
In jeder dieser Tabelle steht eine...
17.11.2008 11:31:00
Thread-ID: 1025138
4 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Auf 17 Checkboxes ausweiten
Wolfgang

Hallo,
der untenstehende Auszug aus einem Code fragt den Status der Checkbox1 auf einem UF ab, gibt es eine elegante Möglichkeit gleichzeitig bei Checkbox1:17 den Status abzufragen und bei False die MsgBox erscheinen zu lassen? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang...
22.11.2008 14:32:01
Thread-ID: 1026950
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige