ich bin am "Durchdrehen". ;-)
Ich habe eine Datei mit mehreren Blätter.
Es soll nachgesehen werden ob, ab A2, ein Begriff steht der in einen der anderen Blätter 'Suchbegriffe A' bzw. 'Suchbegriffe g' enthalten ist, falls ja soll eine entsprechende Summe, anhand der Einträge in den anderen Blätter, in 'Suchbegriffe' erstellt werden.
Ich wollte hierzu die Formel gerne in VBA berechnen habe aber gerade keine Ahnung wie ich das in VBA tatsächlich "umschreibe":
Dim EinfügeString As String
EinfügeString = "=WENN(LÄNGE(A2)=2;SUMMEWENN('Suchbegriffe G'!A:A;A2&" *";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2&" *";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2;'Suchbegriffe G'!B:B) +SUMMEWENN('Suchbegriffe G'!A:A;A2&"-*";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2&"/*";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;"*/"&A2;'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;A2;'Suchbegriffe G'!B:B) +SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2&"-*";'Suchbegriffe G'!B:B) _
;WENN(LÄNGE(A2)=1; SUMMEWENN('Suchbegriffe G'!A:A;A2&" *";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2&" *";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;A2&"-*";'Suchbegriffe G'!B:B) _
+SUMMEWENN('Suchbegriffe G'!A:A;A2;'Suchbegriffe G'!B:B) +SUMMEWENN('Suchbegriffe G'!A:A;"* "&A2;'Suchbegriffe G'!B:B) _
;SUMMEWENN('Suchbegriffe G'!A:A; "*"&A2&"*";'Suchbegriffe G'!B:B))) _
+ WENN(LÄNGE(A2)=2;SUMMEWENN('Suchbegriffe A'!A:A;A2&" *";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2&" *";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2;'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;A2&"-*";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2&"/*";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;"*/"&A2;'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;A2;'Suchbegriffe A'!B:B) +SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2&"-*";'Suchbegriffe A'!B:B) _
;WENN(LÄNGE(A2)=1; SUMMEWENN('Suchbegriffe A'!A:A;A2&" *";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2&" *";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;A2&"-*";'Suchbegriffe A'!B:B) _
+SUMMEWENN('Suchbegriffe A'!A:A;A2;'Suchbegriffe A'!B:B) +SUMMEWENN('Suchbegriffe A'!A:A;"* "&A2;'Suchbegriffe A'!B:B) _
;SUMMEWENN('Suchbegriffe A'!A:A; "*"&A2&"*";'Suchbegriffe A'!B:B)))"
Entsprechend wollte ich, der Einfachheit halber, das ganze als String in Zeile 2 übergeben und danach das ausführen:
Range("J2").Select
ActiveSheet.Paste
Selection.AutoFill Destination:=Range("J2:J924"), Type:=xlFillDefault
Range("J2:J924").Select
so dass alle Zeilen die Daten enthalten bei Spalte J die Formel eingetragen ist.
Erhalte aber einen Fehler bei "EinfügeString": Fehler beim Kombilieren, Erwartet "Ausdruck", markiert wird mir nach Klick auf OK in der Zweiten Zeile:
"+SUMMEWENN('Suchbegriffe" (das erste "Hochkammata").
Interessant ist, das es mir in der ersten Zeile nicht als Fehler ausgewiesen wird.
Setze ich jede Zeile in "" und am Ende jeder Zeile " &_" wird mir dann in der dritten Zeile hier "+SUMMEWENN('Suchbegriffe G'!A:A;A2&"-*" (beim "*") der Fehler angezeigt.
Ich hoffe das ich mich verständlich ausgedrückt habe.
Kann mir jemand meinen Fehler aufzeigen?
Danke
Toni