Suchergebnisse

Suchergebnisse 1-17 von insgesamt 17.

  • Benutzer-Avatarbild

    leider nix...

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    danke für die Antwort, aber leider bringt das CInt() nichts... wenn ich einen Integer übergeben möchte ist nichts mehr im Filter eingetragen noch jemand eine Idee? Liebe Grüße

  • Benutzer-Avatarbild

    Hi Leute, in einem Makro setze ich einen Filter wie folgt: ActiveSheet.Range("$A$5:$S$" & i).AutoFilter Field:=3, Criteria1:= _ ">=" & zeit1, Operator:=xlAnd, Criteria2:="<=" & zeit2 es funktioniert auch fast, das einzige Problem liegt nur daran, dass ich den Filter öffnen muss um dort die Datumsfilterung aufzurufen. Wenn sich diese öffnet sind beide Zeiten aus dem Makro eingetragen und bei einem Klick auf "ok" funktioniert alles wunderbar... Was muss ich tun um dieses umgehen zu können? Liebe G…

  • Benutzer-Avatarbild

    Lösung

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    hallo, ich bin mir nicht sicher was du machen willst aber rein theoretisch müsstest if left(cells(i, 12), 1) = 1 then zudem kannst du so deine string immer erweitern indem du hinweis = hinweis + "blablabla"

  • Benutzer-Avatarbild

    Log Zeile für Zeile

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    Hallo, nehmen wir an ich habe eine log-Datei mit mehreren Zeilen drin, wie kann ich im VBA sagen, dass er sich "zeile für zeile" durcharbeiten soll? Vielen Dank

  • Benutzer-Avatarbild

    "Jahrestag"

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    Hallo, ich würde gerne in VBA von einem Datum wissen der wie vielte Tag dieses Datum im Jahr ist. Zum Beispiel 05.02.2012 wird dann zu 36. Vielen Dank!

  • Benutzer-Avatarbild

    klappt

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    danke, habe einfach CStr() davor geschrieben und schon tut's, danke für die Hilfe

  • Benutzer-Avatarbild

    funktioniert nicht

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    also, ich habe deine methode probiert aber es kommt immer noch der gleiche Fehler (Typen unvberträglich) dieser befehl liegt in einer do until ... loop schleife ABER das blatt hat doch "unendlich" zellen oder?^^

  • Benutzer-Avatarbild

    Aufruf

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    zunächst mal danke für die antwort, werde es nachher mal probieren... was ich aber noch sagen wollte, habe davor das worksheet auf worksheet.activate, sollte das nicht reichen?

  • Benutzer-Avatarbild

    Cells()

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    Hi Leute, habe im meinem Makro folgendes stehen: inhalt = Cells(k, i) in diesem fall ist inhalt ein String, k und i sind jeweils integer... ich bekomme trozdem die Fehlermeldung dass die Typen ungültig sind. hat vielleicht jemand eine Idee? Vielen Dank für eure Hilfe

  • Benutzer-Avatarbild

    Hi Leute, laut VBA habe "End IF"'s zu viel, kann jemand helfen? Do While i <= k If Cells(i, 2) = hash Then i = k + 10 If Cells(i, 3) = "" Then Cells(i, 3) = pDatum Else If Cells(i, 3) > pDatum Then Cells(i, 3) = pDatum Else If Cells(i, 4) = "" Then Cells(i, 4) = pDatum Else If Cells(i, 4) < pDatum Then Cells(i, 4) = pDatum End If End If End If End If Else i = i + 1 End If Loop

  • Benutzer-Avatarbild

    TXT auswerten

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    alles klar, typischer fehler bei mir^^

  • Benutzer-Avatarbild

    TXT auswerten

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    zunächst einmal danke, aber der macht garnichts bei mir... folgender code: datei = Dir(pfad + kuerzel) Do While datei <> "" Open "C:\" + datei For Input As #1 Do Until Not EOF(1) Line Input #1, zeile datum = Left(zeile, 12) MsgBox (datum) Loop Close #1 datei = Dir Loop zu erwarten wäre ja nun immer der Anfang jeder Zeile, aber es passiert original NULL

  • Benutzer-Avatarbild

    TXT auswerten

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    Hi Leute, zur Zeit habe ich folgenden Quellcode: datei = Dir(pfad + kuerzel) Do While datei <> "" Open "C:\" + datei For Input As #1 ' Do Until not eof(1) ' Line Input #1, datum ' Loop Close #1 datei = Dir Loop Das Problem ist das, dass ich jeweils nur die ersten 10 Zeichen aus jeder Zeile der Datei brauche. Weiß jemand wie ich das machen kann? Vielen Dank

  • Benutzer-Avatarbild

    alles klar, vielen dank hierfür

  • Benutzer-Avatarbild

    danke erstmal hierfür, aber ist es auch möglich, dies als Procedure zu haben (sub....) da ich zuvor noch nie mit funktionen gearbeitet habe...

  • Benutzer-Avatarbild

    Aufzeichnen

    Zyfer - - Visual Basic for Applications (VBA)

    Beitrag

    Hallo, ich arbeite noch nicht all zu lange mit VB, aber eine Möglichkeit, die vielleicht funktioniert, wäre dieses Makro einfach aufzuzeichnen. Handisch kann man ja diese Diagramme erzeugen, tu dies un lass während dessen daraus das Marko aufzeichnen und schon hast du ein funktionsfertiges Makro Ich hoffe es kann helfen

  • Benutzer-Avatarbild

    Hi Leute, ich versuche, unbekannt viele .logs (Textdateien) aus einem Ordner in Excel einzuarbeiten. Das Problem ist, dass jede Datei anders heißt und ich diese Namen auch nicht weiß, da die LOGS automatisch erzeugt werden. Ich will also all diese Datein in dem Ordner, möglichst über "Open ... as #1 for input" (oder so ähnlich) durchgehen und über ein Makro dann einlesen. Vielen Dank für eure Hilfe