Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 13 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 10, 11, 12, 13, 14, 15, 16 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Problem mit Worksheetfunction.CountIfs 
Phelan XLPH

Antworten: 2
Aufrufe: 95

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 19:51   Titel: AW: Problem mit Worksheetfunction.CountIfs Version: Office 2010
Hallo,

Sub test()

Dim DatumVon As Double
Dim DatumBis As Double
Dim ws As Worksheet
Dim i As Integer

With Worksheets("BE-YieldüberZeit")

DatumVon = CDbl(.Cells(1, 3).Value)
DatumBis = CDbl(.Cells(1, 4).Value)

For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

Set ws = Worksheets(.Cells(i, 1).Value)

.Cells(i, 2).Value = Application.WorksheetFunction.CountIfs( _
ws.Range("A:A"), ">=" & DatumVon, _
ws.Range("A:A"), "<=" & DatumBis, _
ws.Range("L:L"), "=IO")
Next

End With

End Sub
  Thema: Daten aus dem web 
Phelan XLPH

Antworten: 4
Aufrufe: 40

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 19:26   Titel: AW: Daten aus dem web Version: Office 2007
Sub Test_LinkDateChange()
Dim sLink As String

sLink = "http://***&year=2014&month=01&day=16"
MsgBox LinkDateChange(sLink, 2015, 2, 31)

End Sub

Function LinkDateChange(sLinkAddress As String, iYear As Integer, iMonth As Integer, iDay As Integer) As String
LinkDateChange = sLinkAddress
Mid(LinkDateChange, InStrRev(LinkDateChange, "&year="), 10) = "&year=" & Format(iYear, "0000")
Mid(LinkDateChange, InStrRev(LinkDateChange, "&month="), 9) = "&month=" & Format(iMonth, "00")
Mid(LinkDateChange, InStrRev(LinkDateChange, "&day="), 7) = "&day=" & Format(iDay, "00")
End Function
  Thema: Daten aus dem web 
Phelan XLPH

Antworten: 4
Aufrufe: 40

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 19:06   Titel: AW: Daten aus dem web Version: Office 2007
Link funkt. nicht!
  Thema: schnell die älteste Datei in einem Ordner finden 
Phelan XLPH

Antworten: 4
Aufrufe: 80

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 18:53   Titel: AW: schnell die älteste Datei in einem Ordner finden Version: Office 2010
Hallo, die Zeile...

Debug.Print strFileName, FileDateTime(strPath & strFileName)

bitte löschen.
  Thema: Countifs mit vielen Bedingungen 
Phelan XLPH

Antworten: 25
Aufrufe: 410

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 18:49   Titel: AW: Countifs mit vielen Bedingungen Version: Office 2010
Wie sieht der Import-Code denn aus?
  Thema: Vergleich von zwei Strings 
Phelan XLPH

Antworten: 43
Aufrufe: 582

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Jan 2014, 18:40   Titel: AW: Vergleich von zwei Strings Version: Office 2007
Hallo,

eine weitere mögl. Variante (recht schnell):

Function String3Match_xlph(strA As String, strB As String) As Boolean
Dim i As Long
Dim j As Long
Dim z As Long

Dim strChr As String
Dim avarMatch() As Variant
Dim alngA() As Long
Dim alngB() As Long

ReDim avarMatch(0 To 2, 0 To 0)

For i = 1 To Len(strA)
strChr = Mid$(strA, i, 1)
For j = LBound(avarMatch, 2) To UBound(avarMatch, 2)
If avarMatch(0, j) = strChr Then: Exit For
Next
If j <= UBound(avarMatch, 2) Then
avarMatch(1, j) = avarMatch(1, j) + 1
Else
ReDim Preserve avarMatch(0 To 2, 0 To z)
avarMatch(0, z) = strChr
avarMatch(1, z) = 1
z = z + 1
End If
Next

For i = 1 To Len(strB ...
  Thema: Spalte mit Erstellt am Datum einfügen 
Phelan XLPH

Antworten: 1
Aufrufe: 30

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 23:37   Titel: AW: Spalte mit Erstellt am Datum einfügen Version: Office 2010
Hallo,

ins Codefenster der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngIntersect As Range

Set rngIntersect = Intersect(Target, Range("B2:B" & Rows.Count))

If Not rngIntersect Is Nothing Then
With Intersect(Range("A:A"), rngIntersect.EntireRow)
If WorksheetFunction.CountA(rngIntersect) > 0 Then
.Value = Now
.NumberFormat = "dd.mm.yyyy hh:mm:ss"
Else
.ClearContents
End If
End With
End If

Set rngIntersect = Nothing

End Sub
  Thema: In Text-Datei exportieren und mehr... 
Phelan XLPH

Antworten: 11
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 23:17   Titel: AW: In Text-Datei exportieren und mehr... Version: Office 2013
Yap, hatte ich vergessen nach dem Testen zu ändern.
  Thema: schnell die älteste Datei in einem Ordner finden 
Phelan XLPH

Antworten: 4
Aufrufe: 80

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 22:16   Titel: AW: schnell die älteste Datei in einem Ordner finden Version: Office 2010
Hallo,

Gegenfrage: Wie ermittelst du ein Arbeitsblatt mit der längsten namen-Bezeichnung?

EDIT!

Vielleicht kannst du es dennoch gebrauchen:

Function OldestOrYoungestFile(ByVal strPath As String, _
Optional blnOldest As Boolean = True, _
Optional strFileSuffix As String = "*.*", _
Optional ByVal iRank As Integer = 1) As Variant

Dim strFileName As String
Dim astrFilename() As String
Dim dblDatum As Double
Dim adblDatum() As Double
Dim intIndex As Integer

If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

strFileName = Dir(strPath & strFileSuffix)
Do Until strFileName = vbNullString

ReDim Preserve astrFilename(intIndex)
astrFilename(intIndex) = strFileName

...
  Thema: Kommentare trotz Blatschutz zulassen 
Phelan XLPH

Antworten: 6
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 22:03   Titel: AW: Kommentare trotz Blatschutz zulassen Version: Office 2007
Hallo Julia,

bekommst du das kopiert?
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 20:14   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Hallo,

@ s.kreatore
das kann ich nicht nachvollziehen. wenn ich alle 3 Überschriften anpasse,
dann funktioniert alles tadellos.

@Knut_Hanson
was du willst sind 3 abhängige Combos.
Wo sollen die Daten ausgegeben werden in einem Blatt oder in einer
Listbox auf einer Userform? Wiviele Datensätze sind es eigentlich?
  Thema: Kommentare trotz Blatschutz zulassen 
Phelan XLPH

Antworten: 6
Aufrufe: 86

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 15:21   Titel: AW: Kommentare trotz Blatschutz zulassen Version: Office 2007
Hallo Julia,

M. E. geht das nur über einen Umweg.
  Thema: In Text-Datei exportieren und mehr... 
Phelan XLPH

Antworten: 11
Aufrufe: 123

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 14:25   Titel: AW: In Text-Datei exportieren und mehr... Version: Office 2013
Hallo,

Im zweiten Code-Beispiel werden die Datumsangaben im richtigen Format in die Textdatei geschrieben aber ich kann die Datei nicht mehr in die externe Software einlesen

Vielleicht muss das Datum doch als Zahl vorliegen damit es eingelesen werden kann?!
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 14:21   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Hallo,

dann änder sie doch. Alle 3 Überschriften .
  Thema: Spezialfilter in Kombination mit einem Makro Datei bearbeite 
Phelan XLPH

Antworten: 13
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Jan 2014, 12:39   Titel: AW: Spezialfilter in Kombination mit einem Makro Datei bearb Version: Office 2013
Hallo Knut,

eine mögl. Variante:
 
Seite 13 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 10, 11, 12, 13, 14, 15, 16 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum