Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbereich abfüllen, Optimierung

Forumthread: Spaltenbereich abfüllen, Optimierung

Spaltenbereich abfüllen, Optimierung
Peter
Guten Abend
In Tabelle "Auswertung" bearbeite ich den Spaltenbereich U6:U59 mit folgendem Code Zelle um Zelle:
For Each rCell In Spaltenbereich
rCell = Application.WorksheetFunction.VLookup(rCell.Offset(0, 1), [LOOKUPTABLE], 2, False) / _
Application.WorksheetFunction.VLookup(rCell.Offset(0, 2), [LOOKUPTABLE], 2, False)
Next
Gibt es allenfalls die Möglichkeit, die Werte in einem Array mittels VBA zu rechnen und auf einmal einzutragen?
Bin gespannt auf die Antworten.
Gruss, Peter
Anzeige

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

Betreff
Benutzer
Anzeige
...allen...ebenfalls oder was...?! Gruß owT
11.01.2011 22:11:42
Luc:-?
:-?
AW: ...allen...ebenfalls oder was...?! Gruß owT
12.01.2011 11:41:24
Peter
Hallo zusammen
Bin nicht ganz gestiegen, was mir Luc sagen wollte, wahrscheinlich war ich zu wenig konkret.
Deshalb habe ich eine Beispieldatei hochgeladen, mit dem entsprechenden VBA Code.
Gruss, Peter
...und wo ist die Datei?-owT
12.01.2011 12:14:20
robert
Anzeige
AW: Pardon !! hier:
15.01.2011 15:54:20
Reinhard
Hallo peter,
hast du die 152 Namen in der mappe manuell eingegeben?
Warum so viele?
Probiers mal so, ungetestet: 
Sub Anp_Kurs_Einheit()
Dim RngCHF As Range, RngDuo As Range, zStart As Long, zEnd As Long, DuoDuo As Integer, PrioDuo  _
As Integer
Dim rCell As Range
zStart = [zeStart].Row
zEnd = [zeEnd].Row
PrioDuo = [spCurrPrio].Column - [spFxDuo].Column
DuoDuo = [spCurrDuo].Column - [spFxDuo].Column
Set RngDuo = Range(Cells(zStart, [spFxDuo].Column), Cells(zEnd, [spFxDuo].Column))
RngDuo.Offset(0, 50).FormulaLocal = "=" & RngDuo.Range("A1").Address * _
"sverweis(" & rCell.Offset(0, PrioDuo).Address & ";" & [FXE].Address & ";2;0)" _
& "=sverweis(" & rCell.Offset(0, DuoDuo).Address & ";" & [FXE].Address & ";2;0)"
RngDuo.Value = RngDuo.Offset(0, 50).Value
RngDuo.Offset(0, 50).clearcontenst
End Sub

Gruß
Reinhard
Anzeige
AW: Pardon !! hier:
15.01.2011 18:49:19
Peter
Hallo Reinhard
Vielen Dank für den Code. Jetzt hats klick gemacht.
Bei der Zeile RngDuo stimmte was noch nicht, doch ich habe dann mal die Formel im Excel eingegeben, im VBA wieder abgefragt und gewisse Formelteile durch Variablen ersetzt.
Danke und Gruss, Peter
;

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