Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveCell.Formulalocal

Forumthread: ActiveCell.Formulalocal

ActiveCell.Formulalocal
Andreas
Hallo,
ich habe eine bitte,
wenn ich folgendens eingebe in VBA:
Dim PS As String
PS = Application.InputBox("Name Planungssheet eingeben", "Planung")
Range("F2").Select
ActiveCell.FormulaLocal = "=Zählenwenn('[" & PS & "]Tabelle1'!A:A;A2)"
kommt folgendes in F2 raus:
=Zählenwenn('[KW25.xls]Tabelle1'!A:A;'A2')
wie kann ich die ' Stiche bei A2 vermeiden.
Bin dankbar für jeden Ratschlag.
MfG
Andreas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ActiveCell.Formulalocal
14.06.2012 15:45:54
ChrisL
Hi Andreas
Hier ein Vorschlag:
Sub t()
Dim PS As Variant
Dim strPfad As String, strDatei As String
PS = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls), *.xls", Title:=" _
Planungsdatei auswählen")
If PS = False Then
Exit Sub
Else
strDatei = Right(PS, Len(PS) - InStrRev(PS, "\"))
strPfad = Left(PS, Len(PS) - Len(strDatei))
Range("F2").Formula = "=COUNTIF('" & strPfad & "[" & strDatei & "]Tabelle1'!A:A,A2)"
End If
End Sub

cu
Chris
Anzeige
AW: ActiveCell.Formulalocal
14.06.2012 18:00:48
Andreas
ich werde das Morgen früh gleich mal probieren, Privat habe ich kein Office 2010.
Bis dahin erst mal Danke lieber ChrisL.
Beste Grüße
Andreas
AW: ActiveCell.Formulalocal
15.06.2012 15:18:24
Andreas
Hallo,
leider hat die Formel wenn sie in Zelle F2 dargestellt wird am Ende immer noch .....,'A2')"........
Ich probier am Wochenende mit Stringoperationen dass in den Griff zu bekommen und schreibe am Montag dazu noch mal meine Erfahrungen.
Bis dahin allen ein schönes Wochenende.
Beste Grüße
Andreas
Anzeige
;

Forumthreads zu verwandten Themen

Range("t20").Select: ActiveCell.Formula = "='Grupp
Rüdiger

Hallo Ihr VBA Spezialisten,
ich bin es wieder eimal.
Ich habe von anderen Dateien von mir ein Macro zusammengestellt und jetzt geht es mit meiner Feststellung und meinen Fragen weiter!
Ich soll vom Tennisclub aus Schiedsrichterzettel ausdrucken lassen.
In dem Tabellenblatt "Grup...
10.08.2010 19:42:00
Thread-ID: 1171480
2 Beiträge
Anzeige
InStr(ActiveCell.Formula...
Rolf

Guten Tag zusammen,
ich möchte, dass die Hintergrundfarbe einer Zelle automatisch vergeben wird, wenn in dieser Zelle sowohl ein "+"-Zeichen als auch ein "-"-Zeichen vorkommt. Also z.B. '-16,32+3,65+1,25'
Dazu habe ich folgendes gebastelt: Private Sub Worksheet_Change(ByVal Target As...
02.07.2012 18:30:47
Thread-ID: 1269647
6 Beiträge
Anzeige
ActiveCell.FormulaR1C1 Schleife
Giorgi

Ich sitze an einem Plan und beschäftige mich mit folgenden Problem.
Ich will das man in eine Exceltabelle eine bestimmten Klassennamen einfügt in diesem Fall eine aus dem Case und die jeweiligen vier Spalten werden bunt eingefärbt. Dies habe ich soweit erfolgreich gelöst. Weitere Casefälle...
26.02.2019 10:52:10
Thread-ID: 1677910
6 Beiträge
ActiveCell.FormulaR1C1
Walter

ActiveCell.FormulaR1C1 - was für ein fürchterlich langes Wort für die eine Zelle, die ich gerade untersuchen will. Kann ich
das auch kürzer schreiben?
19.10.2002 06:50:22
Thread-ID: 171050
3 Beiträge
Anzeige
ActiveCell.Formula - SUM oder SUMME?
Dani

Hallo,ich hab da ein kleines Problem, ich habe mit VBA die Formel aus einer Zelle eingelesen in eine Variable, in dieser stand dann die Formel genau wie in den Excel-Zelle... =SUMME(etc...)
Nun hab ich die Anwendung mal wieder laufen lassen und plötzlich steht in der Variable=SUM(etc...)d.h....
13.02.2003 12:35:36
Thread-ID: 218548
4 Beiträge
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(R[1]C[-1]),
Marcel
Hi,

ich will mit der folgenden Makrozeile eine Formel in eine Zelle schreiben. Die Zeile steht in einer Schleife.

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(R[1]C[-1]),"""",""x"")"

Ich will die Zahl "1" in bei "..ISBLANK(R[1]C[1]).." in jedem Schleifendurchlauf erhöhen. Am liebste...
04.11.2003 16:52:15
Thread-ID: 332995
3 Beiträge
ActiveCell.FormulaLocal
Matthias H.
Hallo,
bei Rechtsklick auf eine Zelle rufe ich eine UserForm auf, mit der ich via ComboBox die Zelle mit einem Wert fülle.
Gleichzeitig soll in die Nachbarzelle eine Formel in der Form
=SVERWEIS(C5;'alle'!A2:B30;2)
eingetragen werden, wobei hier C5 die gerade aktive Zelle ist.
<...
12.01.2004 13:41:24
Thread-ID: 362300
5 Beiträge
ActiveCell.FormulaR1C1
Alois

Hallo
Wie muss ich diese Formel umschreiben, damit statt R[-238]C die Zelle F1 als Anfangswert für die Summe steht?
Bitte um eure Hilfe
Gruß Alois
ActiveCell.FormulaR1C1 = "=SUM(R[-238]C:R[-1]C)"
23.10.2004 17:17:21
Thread-ID: 505662
9 Beiträge
absoluter Bezug bei ActiveCell.FormulaR1C1 ??
Martin

Hallo,
wie kann ich in dieser Formel:
ActiveCell.FormulaR1C1 = "=IF(RC[-6]="""",IF(RC[-1]>= 3 ,IF(RC[-2] anstatt der Zahl 3 auf eine Zelle verweisen, z.B. B5 ! aber mit absolutem Bezug?
vielen Dank im Voraus!
MfG
Martin
02.02.2005 14:23:56
Thread-ID: 559736
4 Beiträge
ActiveCell.FormulaR1C1 plus Zeit
PF

Hallo zusammen,
In einer VBa-Funktion möchte ich mit ActiveCell.FormulaR1C1 den eingetragenen Zeitwert um eine Minute erhöhen.
Leider ist der gelieferte Wert mit ActiveCell.FormulaR1C1 ein Dezimalwert. Das Formatieren = Format(wert, "hh:mm") liefert ein Debug-Fehler.
Wie mache ich d...
10.10.2007 11:22:47
Thread-ID: 914617
2 Beiträge
Activecell.Formula
serge

Hallo leute
wie bekomme ich die Werte aus meinen ComboBoxen in die Formel mit ZEICHEN(10) bzw. CHAR(10) dazwischen um einenZeilenumbruch zu bewirken!
Das klappt nicht!:
ActiveCell.FormulaR1C1 = ComboBox1.value& zeichen(10) &ComboBox2.value
Danke Serge
11.12.2007 09:03:00
Thread-ID: 933865
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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