Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Array in eine einzelne Zelle schreiben

VBA: Array in eine einzelne Zelle schreiben
20.11.2015 09:58:15
Alex
Hallo,
Ich habe folgendes Problem. Ich lese einen String z.b. "LL501|LL502|LL503" aus.
Danach splitte ich diesen an den | .
Nun habe ich ja ein Array in dem LL501, LL502, LL503 steht.
Nun würde ich dieses gerne in eine Zelle Schreiben.
Sheets(1).Cells(16, 3).Value = aMeinArray(i)
Bekomme ich einen Laufzeitfehler 9: "Index außerhalb des gültigen Bereichs"
Wenn ich das ganze in einer For Schleife mache funktioniert das Programm, allerdings bekomme ich nur den letzten Wert, in diesem Fall LL503, in die Zelle geschrieben.
Gibt es eine Möglichkeit das gesamte Array in die Zelle zu schreiben? Oder eine Möglichkeit Werte in eine Zelle hinzuzufügen? Bonus wäre es die Einträge mit Zeilenumbrüchen zu haben.. also das in Zelle 16C am Ende:
"LL501
LL502
LL503"
steht
Über Hilfe würde ich mich sehr freuen :)
mit freundlichen Grüßen
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Array in eine einzelne Zelle schreiben
20.11.2015 10:02:46
Rudi
Hallo,
dann musst du es wieder zu einem String verketten.
Sheets(1).Cells(16, 3).Value = Join(aMeinArray, vbLF)
Gruß
Rudi

AW: VBA: Array in eine einzelne Zelle schreiben
20.11.2015 10:31:27
Alex
Funktioniert top :)
Super vielen Dank für die schnelle Antwort!
Mir fällt gerade ein Anschluss Problem auf.. ich müsste dem Array jetzt noch einen Wert hinzufügen. Finde aber den Befehl dazu nicht. Ich arbeite gerade das erste mal mit Arrays =/
Falls da noch wer eben Zeit hätte wäre das super :)
Gruß
Alex

du brauchst kein Array
20.11.2015 10:32:47
Tino
Hallo,
du brauchst kein Array, ersetze einfach das Zeichen durch einen Zeilenumbruch.
Sheets(1).Cells(16, 3).Value = Replace("LL501|LL502|LL503", "|", vbLf)
Gruß Tino

Anzeige
AW: du brauchst kein Array
20.11.2015 11:44:51
Alex
Oh Stimmt dieser Teil geht ohne Array wesentlich leichter. Danke :)
Jetzt habe ich aber eine Schleife in der ich aus einer Access Datenbank mehrere Werte auslese (unterschiedliche viele zwischen 1 und 6). Ich gehe die Datenbank bzw. das Recordset mit einer Schleife durch und immer wenn ich etwas finde, dass in das Feld gehört würde ich das ganze gerne in ein Array schreiben und wenn ich durch das Recordset durch bin, dann würde ich gerne das gesamte Array in die Zelle schreiben.
Alternativ würde es auch gehen, dass immer wenn ich einen Wert finde diesen direkt in die Zelle schreibe und wenn ich einen weiteren Wert finde diesen ergänze und so weiter.
Hat da jemand eine Idee?
Vielen Dank für jegliche Hilfe :)
mit freundlichen Grüßen
Alex

Anzeige
AW: du brauchst kein Array
20.11.2015 12:02:33
Rudi
Hallo,
kannst du direkt mit einem String machen
Schema: 
For i=1 to AnzahlRecordset
if passt then
sTmp=sTmp & vbLF & Record(i)
end if
next i
Zelle=mid(sTmp,2)'erstes vbLF entfernen
Gruß
Rudi

AW: du brauchst kein Array
20.11.2015 12:32:14
Alex
Danke Rudi :)
Ich wusste nicht, dass man einen String so leicht erweitern kann. Das hilft enorm bei einigen Problemen!

177 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
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
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Anzeige
Werte in bestimmte Zelle schreiben
Jara

Hallo,
leider habe ich in der SuFu nichts gefunden.
Ich mache erst seit ca. 7 Tagen VBA und hoffe Ihr könnte mir helfen. Ich lasse Werte aus einer Tabelle in die andere Schreiben. Jedoch möchte ich gerne das die Werte nicht bei B2 anfangen, sondern zb bei B19.
Mein Code sieht derze...
15.07.2009 15:11:32
Thread-ID: 1088854
13 Beiträge
RE: Werte in bestimmte Zelle schreiben
Jara

Hi,
keine Ahnung wie man auf Forenbeiträge antwortet. Irgendwie etwas merkwürdig gemacht :) Deshalb sorry wenn ich ein neuen Thread aufmache.
Ich bekomme bei folgender Zeile folgende Fehlermeldung:
lngZ = Application.Max(19, .Cells(.Rows.Count, 2).End(xlUp).Row + 1) _
.Cells(lng...
17.07.2009 10:15:55
Thread-ID: 1089299
3 Beiträge
[VBA] Dreidimensionales Array in Tabellen ausgeben
Thomas

Hallo,
ich habe ein Problem mit der Ausgabe eines Arrays in eine Excel-Tabelle.
Ausgangspunkt ist folgender: With ThisWorkbook.Worksheets(1) .Cells(4, l).Resize(UBound(array, 1), UBound(array, 2)).Value = array End With
Das Array 'array' ist hierin zweidimensional, l wird durch...
06.10.2009 10:25:00
Thread-ID: 1107423
5 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
habe eine Excelmappe mit 2Tabellenblätter.
Nun möchte ich in der ersten Tabelle im Bereich von A5:J30 Daten eingeben.
Wenn ich jetzt in der zweiten Tabelle im Bereich A5:J30 Daten eingebe sollen diese
in dem Bereich der ersten Tabelle eingefügt werden mit einer anderen S...
05.11.2009 22:04:42
Thread-ID: 1114846
7 Beiträge
Werte in Zellen überschreiben
Friedhelm

Hallo,
möchte gerne Werte im Bereich D20:F23 eingeben. Wenn in einer dieser Zellen ein Wert vorhanden ist,
so soll dieser in den Bereich A1:C23 eingetragen werden. Wenn kein Wert im Bereich D20:F23 vorhanden ist
möchte ich im Bereich A1:C23 Werte eingeben können ohne das diese mit N...
17.11.2009 00:40:54
Thread-ID: 1117756
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
16
5
30
6
4
12
2
4
6
6
1
6
3
3
4
5
2
12
5
4
9
6
2
2
2