Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Formel-Umwandlung in VBA scheint fehlerhaft

Frage Microsoft Microsoft Office

Mitglied: user1234

user1234 (Level 1) - Jetzt verbinden

21.12.2010, aktualisiert 22.12.2010, 7714 Aufrufe, 8 Kommentare

Hallo Zusammen.

Ich habe ein Problem mit einer Formel unter Excel 2000.

Es handelt sich um diese Formel, die sonst per Excel wunderbar läuft:

01.
=WENN(ISTFEHLER(VERGLEICH("UM03 =ZUGESTELLT";BP2:CC2;0));  
02.
  WENN(ISTFEHLER(VERGLEICH("UM79 =ENTL.-SCAN";BP2:CC2;0));"";  
03.
     INDEX(BP2:CC2;1;VERGLEICH("UM79 =ENTL.-SCAN";BP2:CC2;0)+1));  
04.
     INDEX(BP2:CC2;1;VERGLEICH("UM03 =ZUGESTELLT";BP2:CC2;0)+1))
Nachdem ich dies mit einem Makro aufgezeichnet habe, sieht es in VBA wie folgt aus:

01.
Range("CF2").Select 
02.
    ActiveCell.FormulaR1C1 = _ 
03.
        "=ISERROR(MATCH(""UM03 =ZUGESTELLT"",RC[-69]:RC[-16],0))""UM79 =ENTL.-SCAN"",RC[-69]:RC[-16],0)),""""," & Chr(10) & "     INDEX(RC[-16]:RC[-3],1,MATCH(""UM79 =ENTL.-SCAN"",RC[-16]:RC[-3],0)+1))?RC[-16]:RC[-3] 1 MATCH(""UM03 =ZUGESTELLT"",RC[-16]:RC[-3],0)"
Starte ich nun mein Makro, kommt ein Fehler:
Laufzeitfehler 1004
Anwendungs- oder objektdefinierter Fehler.

Wenn ich die Meldung mit "Debuggen" bestätige, markiert er mir die oben genannte Zeile.

Hat jemand eine Idee?

Gruß
Mitglied: 76109
21.12.2010 um 16:08 Uhr
Hallo user1234!

Du hast u.a. die IF's alias Wenn vergessen

Versuchs mal so (FormulaLocal):
01.
    Range("CF2").FormulaLocal = "=WENN(ISTFEHLER(VERGLEICH(""UM03 =ZUGESTELLT"";BP2:CC2;0));" & _ 
02.
        "WENN(ISTFEHLER(VERGLEICH(""UM79 =ENTL.-SCAN"";BP2:CC2;0));"""";" & _ 
03.
        "INDEX(BP2:CC2;1;VERGLEICH(""UM79 =ENTL.-SCAN"";BP2:CC2;0)+1));" & _ 
04.
        "INDEX(BP2:CC2;1;VERGLEICH(""UM03 =ZUGESTELLT"";BP2:CC2;0)+1))"
Gruß Dieter
Bitte warten ..
Mitglied: user1234
21.12.2010 um 16:28 Uhr
Peeeeeeeeeerfekt.
Danke!

Schöne Feiertage!
Gruß
Bitte warten ..
Mitglied: user1234
22.12.2010 um 15:53 Uhr
Hallo zusammen.

Leider wirft die Formel doch einiges durcheinander. Die Ergebnisse werden nicht richtig gefiltert.
Teilweise bekomme ich ein #NV, teilweise irgendwelche Daten.

Mag jemand nochmal ein Blick über den VBA-Code werfen?
Bitte warten ..
Mitglied: 76109
22.12.2010 um 20:14 Uhr
Hallo user1234!

Deine Formel wird explizit nach Deiner Vorgabe in die Zelle geschrieben:
01.
=WENN(ISTFEHLER(VERGLEICH("UM03 =ZUGESTELLT";BP2:CC2;0));WENN(ISTFEHLER(VERGLEICH("UM79 =ENTL.-SCAN";BP2:CC2;0));"";INDEX(BP2:CC2;1;VERGLEICH("UM79 =ENTL.-SCAN";BP2:CC2;0)+1));INDEX(BP2:CC2;1;VERGLEICH("UM03 =ZUGESTELLT";BP2:CC2;0)+1))
Und wenn Deine Formel nicht richtig funktioniert, dann liegt das keinesfalls am VBA-Code

Gruß Dieter
Bitte warten ..
Mitglied: Biber
22.12.2010 um 20:40 Uhr
Moin user1234,

ich denke auch, wir reden hier von 2 Baustellen.
Das eine ist das stumpfsinnige Konvertieren der Cell/Range-Properties .Formala/.FormulaLocal/.FormulaR1C1/.FormulaR1C1Local hin und her.
Dabei hat Excel keine Schwierigkeiten und es kommt auch keine sinnentstellte Formel raus.
Da kam ich bei meinen Tests zu den gleichen Ergebnissen wie didi1954.

Also muss wohl eher dein Handling beim Aufzeichnen des Makros etwas abseits des Mainstreams sein.

In deinem ersten geposteten Quelltext
01.
    ActiveCell.FormulaR1C1 = _ 
02.
        "=ISERROR(MATCH(""UM03 =ZUGESTELLT"",RC[-69]:RC[-16],0))""UM79 =ENTL.-SCAN"",RC[-69]:RC[-16],0)),""""," & Chr(10) & "     INDEX(RC[-16]:RC[-3],1,MATCH(""UM79 =ENTL.-SCAN"",RC[-16]:RC[-3],0)+1))?RC[-16]:RC[-3] 1 MATCH(""UM03 =ZUGESTELLT"",RC[-16]:RC[-3],0)"
ist absolut nicht reproduzierbar
a) woher denn dieses "& chr(10) & " kommen könnte ?
Hast du diese Formel mal zwischenzeitlich in der Zelle als "Text" stehen gehabt statt als Formel und dabei einen Strg-Enter-Zeilenumbruch zur Lesbarkeit eingefügt?
b) die in dem Code wiedergegebenen Row/Column-Referenzen "RC[-69]:RC[-16]" sind absolut unerklärlich.
Und auch nicht reprozierbar bei einer Eingabe der "Zell-Formel" in Zelle CF2 und anschliessendem Makro-Aufzeichnen.

ist dieser Effekt denn bei dir reproduzierbar, wenn du in einem "leeren" Arbeitsblatt in Zelle CF2 didi1954s Formel "makrorecordest"?

Grüße
Biber

Nachtrag:
Es könnte ein falsches Handling beim Makro-Recorden sein.

Falls der FormelText in der Zelle z.B.CF2 > 255 Zeichen ist, (und das ist er!),
  • dann darfst du nicht beim Makrorekorden einen Doppelklick auf die Zelle ausführen (oder mit F2 den Zellinhalt markieren)
  • sondern nur die Zelle selektieren ("auf die Zelle gehen") und dann mit "Strg-C/Strg-V " oder "Kopieren/Einfügen" hantieren.

Weil:
  • Text im Bearbeitungsmodus einfügen -> Makrorecorder: "ActiveCell.FormulaR1C1 = "<deineFormelInDerzelle>"".
  • Formel-Text einfügen ohne "Bearbeitungsmodus" -> "ActiveSheet.Paste"

Nur das zweite klappt bei Formel-Texten > 255 Zeichen <= 1024 Zeichen.

Praktikanten halt.

nochmal Grüße
Biber
Bitte warten ..
Mitglied: user1234
23.12.2010 um 09:32 Uhr
Hallo zusammen.

Vielen Dank für Eure Antworten. Im Nachhinein kann ich nicht nachvollziehen, wie ich was genau gemacht habe. Habe 1000 Sachen probiert.


@Biber:
- Dieses \"& chr(10) & \" kam von Excel automatisch.


Wenn ich den oben genannten Code in mein VBA-Code einfüge, klappt es. Einen Fehler habe ich bei meinen Suchworten gefunden.
Ich habe sie noch einmal sauber aus der Excel-Liste kopiert, dann klappt es.

Kann ich bei den Suchworten mit \"enthält\" arbeiten?
Also statt \"UM03 =ZUGESTELLT \" enthält \"UM03\" ?

Vielen vielen Dank für Eure hilfe
Bitte warten ..
Mitglied: 76109
23.12.2010 um 10:19 Uhr
Hallo user1234!

Du kannst beim Vergleichstyp 0 auch Platzhalter (*?) verwenden z.B. "*UM03\*" oder "UM03*Zugest*"

Gruß Dieter
Bitte warten ..
Mitglied: user1234
23.12.2010 um 10:31 Uhr
Es kann so einfach sein ...
Manchmal sieht man den Wald vor lauten Bäumen nicht.

PS: Ich schick euch beiden eine PN. Irgendwie muss ich euch zu Weihnachten ein kleines Dankeschön zukommen lassen ;)
Bitte warten ..
Ähnliche Inhalte
Entwicklung
VBA wenn Formel
Frage von TheSB891Entwicklung1 Kommentar

Hallo Zusammen Ich hab da ein kleines Problem und finde leider keine Lösung. Ich habe eine Tabelle die ich ...

VB for Applications
Excel VBA Formel "WENN" einfügen
gelöst Frage von chef1568VB for Applications2 Kommentare

Hallo zusammen, ich möchte per Excel-Makro folgende Formel eintragen: EXCEL: VBA: Leider bekomme ich hier immer einen anwendungsrelevanten Fehler ...

Microsoft Office
Excel-Formel oder VBA
gelöst Frage von nicki01Microsoft Office7 Kommentare

Hallo Ich weiß nicht, ob ich hier richtig bin. Mein Problem: Ich habe mir (mit Mühe) ein Excel-Haushaltsbuch aufgebaut. ...

VB for Applications
VBA Formel einfügen
Frage von Gimli3311VB for Applications4 Kommentare

Guten Tag Zusammen, ich bin es mal wieder und brauche eure Hilfe. Problem: Ich möchte die Termintreue angezeigt bekommen ...

Neue Wissensbeiträge
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 4 StundenInternet3 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registierunf von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 11 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 22 StundenWindows 103 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 1 TagSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless16 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...