Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige