Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 100 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 97, 98, 99, 100, 101, 102, 103 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Makro zum Durchsuchen einer Zeile mit Zählerfunktion 
Phelan XLPH

Antworten: 14
Aufrufe: 172

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Nov 2012, 12:53   Titel: AW: Makro zum Durchsuchen einer Zeile mit Zählerfunktion Version: Office 2010
Function MatchesCount(Text, SearchText)
With CreateObject("vbscript.regexp")
.Global = True
.IgnoreCase = True
.Pattern = " +|\f+|\n+|\r+|\t+|\v+"
SearchText = .Replace(SearchText, "|")
.Pattern = " +|\f+|\n+|\r+|\t+|\v+"
Text = .Replace(Text, " ")
.Pattern = " " & SearchText & " "
MatchesCount = .Execute(" " & Text & " ").Count
End With
End Function

Bsp-Aufruf in einer Zelle: =MatchesCount($A2;B$1)
  Thema: Export einer Spalte zu txt - ohne Leerzeichen 
Phelan XLPH

Antworten: 1
Aufrufe: 156

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Nov 2012, 16:42   Titel: AW: Export einer Spalte zu txt - ohne Leerzeichen Version: Office 2003
Sub XLStoTXT()
Const DateiName = "D:\Ddatei.txt"
Dim Bereich As Range, ar As Variant
Dim arT As Variant, i As Long, n As Long

ar = Range("E2:E" & Cells(Rows.Count, 5).End(xlUp).Row).Value

ReDim arT(1 To UBound(ar))
For i = 1 To UBound(ar)
If ar(i, 1) <> "" Then
n = n + 1
arT(n) = ar(i, 1)
End If
Next
ReDim Preserve arT(1 To n)


Open DateiName For Output As #1
Print #1, Join(arT, vbTab)
Close #1
End Sub
  Thema: Datenablgeich 
Phelan XLPH

Antworten: 1
Aufrufe: 69

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Nov 2012, 16:25   Titel: AW: Datenablgeich Version: Office 2010
Formel in C1 und runterziehen:
=WENN(ISTZAHL(SUCHEN(A1;B1));"ja";"nein")
  Thema: Hilfe, weiß nicht wie ich anfangen soll 
Phelan XLPH

Antworten: 8
Aufrufe: 173

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Nov 2012, 15:05   Titel: AW: Hilfe, weiß nicht wie ich anfangen soll Version: Office 2010
...oder so.
  Thema: Daten aus verschiedenen Dateien importieren 
Phelan XLPH

Antworten: 6
Aufrufe: 171

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Nov 2012, 12:27   Titel: AW: Daten aus verschiedenen Dateien importieren Version: Office 2010
.
.
.
With ThisWorkbook.Worksheets(1)
With .Cells(i + 1, 1).Resize(, Range(sBereich).Columns.Count)
.Formula = sFormel
.Value = .Value
End With
End With
.
.
.
  Thema: Daten aus verschiedenen Dateien importieren 
Phelan XLPH

Antworten: 6
Aufrufe: 171

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Nov 2012, 21:00   Titel: AW: Daten aus verschiedenen Dateien importieren Version: Office 2010
...versuchs hiermit:

Sub x()
Dim sPfad As String
Dim sDatei As String
Dim sQuellBlatt As String
Dim sBereich As String
Dim sFormel As String
Dim i As Long

sPfad = "D:\Test\" 'Pfad anpassen *****
sQuellBlatt = "Tabelle1" 'QuellBlatt Anpassen *****
sBereich = "A2:T2" 'sBereich ggf. Anpassen *****

sDatei = Dir(sPfad & "testd*.xls*")
Do While sDatei <> ""
i = i + 1
sFormel = _
"'" & sPfad & "[" & sDatei & "]" & sQuellBlatt & "'!" & _
Range(sBereich).Cells(1).Address(0, 0)
sFormel = "=IF(" & sFormel & "="""",""""," & sFormel & ")"
With ThisWorkbook.Worksheets(1)
...
  Thema: Zum 1000sten Mal: per Makro textimportierte Daten > SVERW 
Phelan XLPH

Antworten: 5
Aufrufe: 111

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Nov 2012, 20:26   Titel: AW: Zum 1000sten Mal: per Makro textimportierte Daten > S Version: Office 2007
Ab XL2007 geht das ganze auch kürzer:
=WENNFEHLER(WERT(LINKS(A1;10));LINKS(A1;10))
  Thema: String mit Like-Operator nach erlaubten Zeichen durchsuchen 
Phelan XLPH

Antworten: 4
Aufrufe: 360

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Nov 2012, 20:11   Titel: AW: String mit Like-Operator nach erlaubten Zeichen durchsuc Version: Office 2003
Das Muster in Klammern bezieht sich nur auf eine ZeichenStelle.
Sub x()
Dim strNameUpdateDatei As String

strNameUpdateDatei = "Produktion_2012-10ä"

If Not isFileNameOK(strNameUpdateDatei, "[-_A-Za-z0-9]") Then
MsgBox "Im Dateinamen sind nur folgende Zeichen erlaubt:" & vbNewLine & _
Space(5) & "A-Z, a-z, 0-9, - (Bindestrich), _ (Unterstrich)", _
vbOKOnly + vbExclamation, "Ungültiger Dateiname"
End If

End Sub

Function isFileNameOK(sText, sMuster) As Boolean
Dim i As Long
For i = 1 To Len(sText)
If Not Mid$(sText, i, 1) Like sMuster Then Exit Function
Next
isFileNameOK = True
End Function

Eine Lösung mit Regex wäre auch möglich:
Function isFileNameOK2(sText, sMuster) As Boolean
With CreateObject("vbscript.regexp")
...
  Thema: array in 2 spalten 
Phelan XLPH

Antworten: 4
Aufrufe: 110

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Nov 2012, 21:22   Titel: AW: array in 2 spalten Version: Office 2003
..oder so:

Sub Test()
Dim sTestString As String
Dim vArray As Variant

sTestString = "a:b:c:d:e:f:g"

vArray = StringTo2dArray(sTestString, ":")

Range("A1").Resize(UBound(vArray), UBound(vArray, 2)) = vArray
End Sub

Function StringTo2dArray(vIn, vTrenner)
Dim vErg, vTmp, anz As Long
Dim i As Long, n As Long

vTmp = Split(vIn, vTrenner)
anz = WorksheetFunction.RoundUp((UBound(vTmp) + 1) / 2, 0)
ReDim vErg(1 To anz, 1 To 2)

For i = 0 To UBound(vTmp)
Select Case i Mod 2
Case 0: n = n + 1: vErg(n, 1) = vTmp(i)
Case Else: vErg(n, 2) = vTmp(i)
End Select
Next
StringTo2dArray = vErg
End Function

"A1" ist die Ausgabezelle.
  Thema: Virus in Makro? 
Phelan XLPH

Antworten: 2
Aufrufe: 216

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Nov 2012, 23:39   Titel: AW: Virus in Makro? Version: Office 2007
Wenn böswilligen Code mitschickst dann schon.
  Thema: Array löschen 
Phelan XLPH

Antworten: 3
Aufrufe: 149

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Nov 2012, 19:49   Titel: AW: Array löschen Version: Office 2010
...versuchs hiermit:

Sub Test()

Dim rngBereichX As Range
Dim arrX As Variant
Dim arrD As Variant
Dim arrE As Variant
Dim i As Long
Dim n As Long
Dim anz As Long

With wbQuelle.Sheets("1")
Set rngBereichX = .Range(.Cells(3, 21), .Cells(.Rows.Count, 21).End(xlUp))
anz = WorksheetFunction.CountIf(rngBereichX, "x")

arrX = rngBereichX.Value
arrD = rngBereichX.Offset(, -16).Value
ReDim arrE(1 To anz, 1 To 1)

For i = 1 To UBound(arrD)
If arrX(i, 1) = "x" Then
n = n + 1
arrE(n, 1) = arrD(i, 1)
End If
Next i
End With

With ThisWorkbook.Worksheets("1")
.Cells(4, 1).Resize(UBound(arrE), UBound(arrE, ...
  Thema: beschleunigung/ verbesserung einer Zuordnung 
Phelan XLPH

Antworten: 20
Aufrufe: 442

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Nov 2012, 19:24   Titel: AW: beschleunigung/ verbesserung einer Zuordnung Version: Office 2007
Smile
  Thema: beschleunigung/ verbesserung einer Zuordnung 
Phelan XLPH

Antworten: 20
Aufrufe: 442

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Nov 2012, 16:16   Titel: AW: beschleunigung/ verbesserung einer Zuordnung Version: Office 2007
Hallo Alex,

ich verwende die Dictionary-Arrays-Kombi, da die recht schnell ist.

[url=http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/A_3391-Using-the-Dictionary-Class-in-VBA.html]Using the Dictionary Class in VBA
  Thema: Spalte von 2d Array in anderes Array kopieren (o. Schleife) 
Phelan XLPH

Antworten: 15
Aufrufe: 591

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Nov 2012, 09:16   Titel: AW: Spalte von 2d Array in anderes Array kopieren (o. Schlei Version: Office 2010
Hallo Gast,

es geht hier nicht um das Array und welche Limitierungen es hat
(M.E. ist hier das Limit der Speicher).

Es geht darum dass 'Transpose' lediglich 65536 Zeilen verarbeiten kann.
'Index' ebenso.

Teste mal:
Sub Test()
Dim ar As Variant
Dim AnzahlZeilen As Long

'läuft durch
AnzahlZeilen = 65536
ar = Range("A1:A" & AnzahlZeilen)
ar = WorksheetFunction.Transpose(ar)

'läuft nicht durch
AnzahlZeilen = 65537 '> 65536
ar = Range("A1:A" & AnzahlZeilen)
ar = WorksheetFunction.Transpose(ar)
End Sub
  Thema: Spalte von 2d Array in anderes Array kopieren (o. Schleife) 
Phelan XLPH

Antworten: 15
Aufrufe: 591

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Nov 2012, 19:20   Titel: AW: Spalte von 2d Array in anderes Array kopieren (o. Schlei Version: Office 2010
WorksheetFunction.Index macht auch nur 65536 Zeilen
 
Seite 100 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 97, 98, 99, 100, 101, 102, 103 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web