Suchergebnisse
Suchergebnisse 1-17 von insgesamt 17.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
leider nix...
Beitragdanke 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
-
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…
-
Lösung
Beitraghallo, 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"
-
"Jahrestag"
BeitragHallo, 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!
-
klappt
Beitragdanke, habe einfach CStr() davor geschrieben und schon tut's, danke für die Hilfe
-
Aufruf
Beitragzunä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?
-
Cells()
BeitragHi 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
-
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
-
TXT auswerten
Beitragalles klar, typischer fehler bei mir^^
-
TXT auswerten
Beitragzunä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
-
TXT auswerten
BeitragHi 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
-
Aufzeichnen
BeitragHallo, 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
-
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