Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in Zelle schreiben ohne festen Zellbezug

Formel in Zelle schreiben ohne festen Zellbezug
07.09.2019 11:40:31
Oisse
Hallo Zusammen,
ich habe folgende Formel, um damit Zellen zu füllen: 

For i = 2 To ls_Bau
.Cells(Zeile + 1, i).FormulaLocal = "=ZÄHLENWENN((" & Cells(4, i).Address & ":" & _
Cells(Zeile - 1, i).Address & ");""*"")"
Next i

In der Zelle steht dann Beispielsweise: 

=ZÄHLENWENN(($D$4:$D$26);"*")

Ich hätte die Formel aber gerne dynamisch erstellt, sodass der Zeilenbereich erweitert werden kann und nicht jedesmal die Formel neu geschrieben werden muss.
Wie kann ich das bereits beim Erstellen der Formel in VBA erreichen?
Dankeschön
Gruß Oisse

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in Zelle schreiben ohne festen Zellbezug
07.09.2019 13:00:10
Hajo_Zi
was ist daran kompliziert in der Bearbeitungsleiste 26 durch 135 zu ersetzen?

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
AW: Formel in Zelle schreiben ohne festen Zellbezug
07.09.2019 13:16:18
Nepumuk
Hallo Oisse,
teste mal:
For i = 2 To ls_Bau
    .Cells(Zeile + 1, i).FormulaLocal = "=ZÄHLENWENN((" & Cells(4, i).Address(False, False) & ":" & _
        Cells(Zeile - 1, i).Address(False, False) & ");""*"")"
Next i

Gruß
Nepumuk
Anzeige
AW: Formel in Zelle schreiben ohne festen Zellbezug
07.09.2019 13:23:21
fcs
Hallo Oisse,
du kannst Parameter für Address angeben, so dass die Bezüge in der Formel nicht alle Absolut sind. 
    For i = 2 To ls_Bau
.Cells(Zeile + 1, i).FormulaLocal = _
"=ZÄHLENWENN((" & Cells(4, i).Address(rowabsolute:=True, columnabsolute:=False, _
ReferenceStyle:=xlA1) _
& ":" & Cells(Zeile - 1, i).Address(rowabsolute:=False, columnabsolute:=False, _
ReferenceStyle:=xlA1) & ");""*"")"
Next i

'Alternative VBA-Anweisung zum Erstellen der Formeln 
        .Range(.Cells(Zeile + 1, 2), .Cells(Zeile + 1, ls_Bau)).FormulaR1C1 = _
"=COUNTIF((R4C:R[-2]C), ""*"")"
Die Formel sieht dann z.B. so aus: 
=ZÄHLENWENN((B$4:B14); "*")
Hoffe das ist das was dir weiterhilft.
LG
Franz
Anzeige
Funtioniert super
07.09.2019 13:49:01
Oisse
Hallo Franz, hallo Nepumuk,
eure Antworten sind klasse. Bin begeistert!
Vielen herzlichen Dank
Schönes WE
sorry, Test
08.09.2019 12:16:19
hans

321 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
1:1-Kopieren ohne dass Formeln "angepasst" werden
Wolfango

Hallo Experten!
Eine Spalte enthält lauter Formeln (alles relative Bezüge). Wenn ich diese komplette Spalte (markiert über Klick auf Spaltenkopf) in eine neue, unbenutzte Spalte kopiere werden (aufgrund der relativen Bezüge) ja stets alle Formeln automatisch angepasst (egal ob über das Menü...
17.09.2008 15:45:18
Thread-ID: 1010435
3 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
nicht die Formel mitkopieren
TomTom

Hi,
Ich habe in meinem Sheet eine Funktion, mit der will ich verschiedene Zeilen kopieren:
MeineQuelle.Rows(lngZeile).Copy Destination:=MeinZiel.Cells(lngZeile, 1)
Wenn ich nun in einer gefundenen Zeile, die kopiert wird, irgendwo eine Formel drin habe, (die sich auf irgend was bezi...
30.01.2009 11:15:07
Thread-ID: 1045327
8 Beiträge
Daten per Makro kopieren ohne Formeln
Kai

Hi,
ich möchte Zeilen innerhalb einer Mappe von einem Tabellenblatt ins ander kopieren. Meine Daten stehen in der Tabellen "IMPORT" (Zeilen 10:100) und sollen nach "DATENBESTAND" ab Zeile 50 reinkopiert werden.
Das kopieren alleine wäre sicher nicht das Problem, aber in meinem Tabellenb...
05.03.2009 13:05:31
Thread-ID: 1056794
3 Beiträge
Formel runterkopieren und bestimmte Zellen ausl.
Tom

Hallo zusammen,
vielleicht kann mir jemand bei folgendem Problem helfen:
In Zelle C1 steht eine Formel die ich ab und zu verändern muss, nun möchte ich diese Formel mit Doppelklick runterkopieren, in der Spalte C sind aber bestimmte Zellen, die bestimmte Werte enthalten und die dürfen n...
10.05.2009 18:13:07
Thread-ID: 1074184
6 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 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
7
4
2
5
6
2
7
2
5
3
3
4
6
4
3
4
2
2
3
2
2
7
3
2
6