Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Array speichern und auslesen

Text in Array speichern und auslesen
06.10.2014 12:49:19
Stefanie
Guten Tag,
wie das mit dem Array funktioniert wurde mir hier in dem Forum schon super klasse erklärt. Vielen dank nochmals dafür! Nun meine Frage:
Hätte jemand ein kleines Beispiel für mich wie ich meine Kopie
 Cells(3, lSpalte + 1).Copy
in einem Array speicher und diese dann in einem neuen Tabellenblatt wieder einfüge?
Quasi im Array die Copy speichern und dann an einer anderen Stelle wieder auslese?
Ich mache dies immer mit Einzelschritten, da ich aber manchmal mehrmals Copy ausführen muss, würde ich diese gerne erst in einem Array speichern und später dann nacheinander auslesen (zwecks Performance).
Vielen lieben Dank!

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Array speichern und auslesen
06.10.2014 13:45:09
Martin
Hallo Stefanie,
bei deinem Beispiel braucht man kein Array, eine einzelne Zelle kannst du auch einer einzelnen variablen zuweisen. Hier mal ein Beispiel mit einem Zellbereich A1 bis C3:
Sub Beispiel()
Dim varArray As Variant
'Zellbereich einem Array zuweisen
varArray = Range("A1:C3").Value
'Anderen Zellbereich mit Array füllen
Range("A4").Resize(UBound(varArray, 1), UBound(varArray, 2)) = varArray
End Sub
Viele Grüße
Martin

Ergänzung
06.10.2014 15:14:43
Martin
Hallo Stefanie,
du kannst Zelleninhalte übrigens auch direkt kopieren, ohne die Daten in einer Variable "zwischenlagern" zu müssen.
Beispiel:
Sub Beispiel()
'Inhalt aus einzelner Zelle kopieren
Sheets(3).Range("A1") = Sheets(2).Range("C5").Value
'Zellenbereich kopieren
Sheets(1).Range("A1:C3").Copy (Sheets(3).Range("A5"))
End Sub
Viele Grüße
Martin

Anzeige
AW: Ergänzung
07.10.2014 11:11:34
Stefanie
Vielen dank zunächst für deine Hilfe. Ist diese Variante schneller?
Also ich suche eben in mehreren Zeilen nach einem "x", wenn eines gefunden wurde, sollen bestimmte Texte kopiert werden. Das können ziemlich viele sein. Da ich dies ja gerade folgendermaßen mache:
Suche X, wenn gefunden, kopiere Zelle, wechsle Tabellenblatt und füge ein
Natürlich dauert dies zu lange.
Daher dachte ich durch einen Array kann ich dieses hin und her springen ersteinmal verhindern, da ich dann erst zum Schluss alles in das andere Tabellenblatt kopiere.

AW: Text in Array speichern und auslesen
07.10.2014 11:15:23
Stefanie
Aber wenn ich ein einem Tabellenblatt, ziemliche viele Texte habe ist ein Array doch sinnvoll oder? Dann kann ich alle Texte erst einmal darin ablegen und dann erst in ein neues Tabellenblatt wechseln und alle Inhalte gleichzeitig einfügen?
Oder sehe ich das falsch ? :-(
Viele Grüße

Anzeige
AW: Text in Array speichern und auslesen
07.10.2014 11:19:40
Daniel
HI
kann man prinizipell machen, ist aber auch nicht schneller als die Werte komplett zu kopieren.
Wenn du die Zellbereiche direkt ansprichst, dann brauchst du ja auch nicht zwischen den Blättern zu wechseln.
Auch ist ein Copy-PasteSpecial gerade bei grossen Datenmengen schneller als das Einlesen und Schreiben in und aus einer Variablen.
Gruß Daniel

AW: Text in Array speichern und auslesen
07.10.2014 11:38:15
Stefanie
Genau aber das Problem ist, dass ich in einer Zeile nach einem "X" suche, wenn eins gefunden wurde dann muss ein bestimmter Text kopiert werden. Zu jedem gefundenen "X" gibts quasi einen anderen Text. Desewgen kann ich nicht einfach einen Bereich kopieren.
Ist das verständlich? Wie kann ich dieses Problem lösen?
Danke dir! VG

Anzeige
AW: Text in Array speichern und auslesen
07.10.2014 11:52:19
Daniel
Hi
wie sieht den die Problemstellung konkret aus?
kannst du mal ne Beispieldatei hochladen und kennzeichnen was wohin kopiert werden soll?
Gruß Daniel

AW: Text in Array speichern und auslesen
07.10.2014 14:07:04
Stefanie
Aber ohne VBA :-)

AW: Text in Array speichern und auslesen
07.10.2014 14:55:19
Daniel
hi
warum VBA, wenns mit zwei einfachen Formeln funktioniert?
zum Vergleich der benötigte VBA-Code
Sub test()
Dim arrM
Dim arrG
Dim arrX
Dim Erg
Dim z As Long
Dim s As Long
With Sheets("Tabelle1")
arrG = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown))
arrM = .Range(.Cells(2, 2), .Cells(2, 2).End(xlToRight))
arrX = .Range(.Cells(4, 2), .Cells(.Cells(4, 1).End(xlDown).Row, .Cells(2, 2).End(xlToRight) _
.Column))
ReDim Erg(1 To UBound(arrG, 1), 1 To 2)
End With
For z = 1 To UBound(arrG, 1)
For s = 1 To UBound(arrM, 2)
Erg(z, 1) = arrG(z, 1)
If arrX(z, s) = "x" Then
Erg(z, 2) = Erg(z, 2) & vbLf & arrM(1, s)
End If
Next
If Len(Erg(z, 2)) > 0 Then Erg(z, 2) = Mid$(Erg(z, 2), 2)
Next
Sheets("Tabelle2").Cells(2, 1).Resize(UBound(Erg, 1), 2).Value = Erg
End Sub

zum Vergleich nochmal der VBA-Code den du brauchst, um die Formel-Lösung zu realisieren: 
Sub test2()
Sheets("Tabelle1").Cells.Copy Sheets("Tabelle3").Cells(1, 1)
With Sheets("Tabelle3")
With .Range(.Cells(4, 2), .Cells(.Cells(4, 1).End(xlDown).Row, .Cells(2, 2).End(xlToRight). _
Column))
.FormulaR1C1 = "=IF(Tabelle1!RC=""x"", Tabelle1!R2C,"""")&IF(RC[1]"""",CHAR(10),"""")& _
RC[1]"
End With
.Range(.Cells(4, 1), .Cells(4, 1).End(xlDown).Offset(0, 1)).Copy
Sheets("Tabelle2").Cells(2, 1).PasteSpecial xlPasteValues
End With
End Sub
braucht deutlich weniger Zeilen und ist vorallem dann viel angenehmer, wenn du den Code im Einzelstep testen musst.
Viel langsamer ist es wahrscheinlich auch nicht.
Gruß Daniel
Anzeige

301 Forumthreads zu ähnlichen Themen

Stundenwert zwischen zwei Tagen
Huber

Hallo,
folgendes Problem.
Möchte den Stundenwert zwischen zwei Tagen (ohne Datum) wissen.
Beispiel: Zelle A1: Samstag 06:00 Zelle B1: Sonntag 12:00 C1: 30
Danke im voraus...
22.08.2008 08:11:00
Thread-ID: 1003710
13 Beiträge
Anzeige
Formel Textteilstring dynamisch extrahieren
Horst_H

Hallo,
seit Stunden probiere ich bislang leider ergebnislos eine Formel zu erstellen:
Quelle:
"S2001W.rar;http://www.netload.in/dateigTTIDfQowZ/S2001W.rar.htm;93.32
MB;0;12.02.2009"
Ergebnis soll sein der string zwischen dem 1. und dem 2. Semikolon, weil die Testlänge unters...
19.02.2009 13:50:00
Thread-ID: 1052127
6 Beiträge
Text mit Zahl in neue Zelle auslesen
Lemmi

Hallo zusammen,
ich habe einen Text ais einer Datenbank den ich Teilweise auslesen möchte.
z. B. Text
A) in A1 : Büro ABC Hamburg 1256 zu Hause
B) in A2 : Büro Berlin 12345 in Straße XXX
Nun möchte ich das Wort Hamburg in B1 auslesen! soweit hat man mir bereits vor...
16.09.2009 21:47:50
Thread-ID: 1103375
17 Beiträge
Anzeige
Textboxinhalt aus anderer Exceldatei auslesen
Urmila

Hallo alle,
zwar weiß ich wie man in einer Zelle den Inhalt aus y-beliebigen Excel Datei eingeben kann, doch ich suche die Möglichkeit, den Inhalt von Zelle B1-B10 in den Textboxen TextBox1-TextBox10 anzeigen zu lassen. Die Datei, worin die Werte stehen, ist C:/Test/Versuch.xls.
Danke u...
05.10.2009 09:17:20
Thread-ID: 1107205
4 Beiträge
noch mal: Werte zwischen zwei Zahlen zählen
Bernd

Guten Morgen zusammen,
mein Problem vom Freitag ist leider noch nicht ganz gelöst :-((
Die Hilfe von "WF" hat mich schon ein ganzes Stück weitergebracht, aber leider hat die Formel ein Problem mit der Berechnung von negativen Werten
'=SUMMENPRODUKT(('Grunddaten berechnet'!$R7:$R4000...
30.11.2009 08:57:22
Thread-ID: 1120929
6 Beiträge
Text zwischen zwei Zeichen
Uwe

Guten Abend an Alle,
gibt es eine Formel um ein Wort unterschiedlicher Länge zwischen zwei eindeutigen Zeichen zu extrahieren?
z.b.
Applause
oder
Gran Move
benötigt würde nur das Wort Applause und Gran Move
Vorab schon mal Dank für die Hilfe!
Gruß Uwe
08.01.2010 18:53:49
Thread-ID: 1128368
6 Beiträge
Auslesen einer Textbox in einer Userform | Herbers Excel-Forum
Bernd Cramer
Hallo,
ich benutze in einer Userform eine mehrzeiliege Textbox.
Diese soll Zeile für Zeile per VBA Ausgelesen werden und in ein Excel-Blatt eingetragen werden.
Vor einiger Zeit hatte mir ein anderer Forum teilnehmer folgenden Tip gegeben.
With tbgrund1
.SetFocus
tbz = 0 'Di...
27.01.2010 17:04:25
Thread-ID: 1133524
4 Beiträge
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 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
12
5
5
16
2
3
5
5
3
12
8
4
1
2
7
3
2
6
7
1
2
7
13
13
1