Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array mit Range füllen

Array mit Range füllen
Micha
Hallo Forum,
ich möchte zwei Values in ein Array laden, welches dann zum Suchen/Ersetzen benutzt werden soll. Hintergrund ist der Teilweise Einsatz kyrillischer Schriftzeichen, die man ja im VBA nicht benutzen kann.
Dim arrSrc
arrSrc = wsGer.Range("A13:A14").Value
Worksheets("Sheet1").Columns("A").Replace What:=arrSrc, _
Replacement:="Kostengruppe", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Was mach ich hier falsch? Denn es passiert leider nix beim Suchen/Ersetzen.
Kann mir jemand helfen?
Gruß

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

Betreff
Benutzer
Anzeige
AW: Array mit Range füllen
03.05.2010 13:01:04
fcs
Hallo Micha,
wenn du mehrere Suchbegriffe in einem Array übergibst, dann muss du in einer Schleife die Werte des Arrays beim Ersetzen abarbeiten. Da du auch kyrillische Zeichen suchst, muss du ggf. den Parameter MatchByte auf True setzen.
Gruß
Franz 
Sub aaTest()
Dim arrSrc, iI As Long
arrSrc = wsGer.Range("A13:A14").Value
For iI = LBound(arrSrc) To UBound(arrSrc)
Worksheets("Sheet1").Columns("A").Replace What:=arrSrc(iI), _
Replacement:="Kostengruppe", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False   ', MatchByte:=True ' MatchByte-Paramater wegen kyrillisch?
Next
End Sub

Anzeige
AW: läuft bei mir nicht..
03.05.2010 14:11:17
JOWE
Hallo Franz,
der Code sieht gut aus, läuft bei mir aber weder in 2007 noch 2003:
Habe 'wsGer' nach 'Worksheets("Tabelle1")' und 'Worksheets("Sheet1")' nach 'Worksheets("Tabelle2")' geändert.
"Laufzeitfehler 9: Index außerhalb des gültigen Bereichs"
Bleibt in der Zeile mit dem Replace-Befehl hängen; betrifft arrSrc(iI) ?
Lasse ich mir im Debugmodus den Wert von iT anzeigen steht der bei 1.
Aber offenbar ist das Datenfeld leer; denn arrSrc(iT) produziert den Fehler!
Gruß
Jochen
AW: läuft bei mir nicht..
03.05.2010 14:20:29
Micha
Ich bekomme den selben Fehler. Und es liegt auch an arrSrc (Subscript out of range)...
Anzeige
AW: läuft bei mir nicht..
03.05.2010 15:15:22
JOWE
so vllt.?
Sub aaTest()
Dim arrSrc
Dim iI As Long
arrSrc = Array(Worksheets("Tabelle1").Range("A13"), Worksheets("Tabelle1").Range("A14"))
For i = 1 To 2
On Error Resume Next
Worksheets("Tabelle2").Columns("A").Replace What:=arrSrc(i), _
Replacement:="Kostengruppe", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False   ', MatchByte:=True ' MatchByte-Paramater wegen kyrillisch?
Next
End Sub
Gruß
Jochen
AW: läuft bei mir nicht..
03.05.2010 15:13:28
fcs
Hallo Jochen,
bei Zuweisung der Werte eines Zellbereichs zu einer Variantvariablen muss der Array-Wert auch mit Zeile/Spaltenbezug angegeben werden hier also arrSrc(iI, 1). Hatte ich übersehen.
Gruß
Franz 
Sub aaTest()
Dim arrSrc, iI As Long, wsGer As Worksheet
Set wsGer = Worksheets("Tabelle2")
arrSrc = wsGer.Range("A13:A14").Value
For iI = LBound(arrSrc) To UBound(arrSrc)
Worksheets("Sheet1").Columns("A").Replace What:=arrSrc(iI, 1), _
Replacement:="Kostengruppe", LookAt:= _
xlPart, SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False   ', MatchByte:=True ' MatchByte-Paramater wegen kyrillisch?
Next
End Sub

Anzeige
AW: Jetzt läufts! Danke oT
03.05.2010 15:23:06
JOWE
Vielen Dank JOWE!!!
03.05.2010 15:36:35
Micha
Ist teilweiser Ersatz m.xlPart Absicht? orT
03.05.2010 13:04:01
Luc:-?
Gruß Luc :-?
Alles klar, erledigt! owT
03.05.2010 13:06:26
Luc:-?
:-?

113 Forumthreads zu ähnlichen Themen

Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Anzeige
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
Array In Vba
@lex

Hallo VBA-Spezialisten !
Seit graumer Zeit suche ich ein Code-Gerüst um Arrays in VBA zu programmieren.Hintergrund:
Ich habe ca. 500 Shapes (MSMap) in einem Blatt.
Mit einer Schleife wird jedes Objekt auf eine Eigenschaft geprüft.
Ist die Prüfung wahr, dann soll dieses Objekt der Se...
12.04.2002 11:59:16
Thread-ID: 112756
4 Beiträge
Anzeige
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
Kann Range-Variable in Array abgelegt werden?
Martin

Hallo,
kann eine Range-Variable einem Array übergeben und später aus dem Array auf eine andere Range-Variable übertragen werden? Mein folgendes Beispiel ist zwar völlig sinnlos, aber was müsste ich darin ändern, damit das Makro mit Übergabe der Range-Information über das Array funktioniert?...
13.03.2010 10:27:29
Thread-ID: 1145571
3 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
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
12
13
5
3
6
4
1
3
2
6
2
6
6
11
8
12
3
4
8
2
6
5
3
5
2