Thema Datum  Von Nutzer Rating
Antwort
13.10.2020 18:18:19 Lars
NotSolved
13.10.2020 19:22:43 volti
NotSolved
Rot Array mit Funktionen beschriften
13.10.2020 19:46:14 volti
NotSolved
13.10.2020 19:48:34 volti
NotSolved

Ansicht des Beitrags:
Von:
volti
Datum:
13.10.2020 19:46:14
Views:
35
Rating: Antwort:
  Ja
Thema:
Array mit Funktionen beschriften

Und falls Du es doch mit Array versuchen möchtest, Lars:

 

Könntest Du es z.B. so versuchen:

Sub Test2()
 Dim vArr As Variant, i As Long

'Bereich in Array schaffen
 vArr = Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)
 For i = 1 To UBound(vArr)
   vArr(i, 1) = "@$B$1*" & vArr(i, 1)
 Next
 
'Auf Tabelle ausgeben
 Range("C1").Resize(UBound(vArr)) = vArr

'Formeln aktivieren
 Columns("C:C").Replace What:="@", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, FormulaVersion:=xlReplaceFormula2
 
End Sub

Natürlich kann man das auch in einer Schleife ausgeben, das bringt dann aber ggü. der normalen Version ohne Schleife nicht sehr viel.

Da die o.a. Ausgabe des Arrays keine Formeln unterstützt, habe ich zunächst einen Platzhalter eingesetzt und diesen dann ersetzt.

viele Grüße

Karl-Heinz


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
13.10.2020 18:18:19 Lars
NotSolved
13.10.2020 19:22:43 volti
NotSolved
Rot Array mit Funktionen beschriften
13.10.2020 19:46:14 volti
NotSolved
13.10.2020 19:48:34 volti
NotSolved