Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 247 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 244, 245, 246, 247, 248, 249, 250 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: mengenangabe filtern 
Phelan XLPH

Antworten: 11
Aufrufe: 378

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2011, 19:55   Titel: AW: mengenangabe filtern Version: Office 2007
Sub EXTEX()
Dim s As String
With Tabelle1
.Range("A1").CurrentRegion.Columns(1).Copy
With CreateObject("VBScript.Regexp")
.Pattern = "[A-Za-z]"
.Global = True
s = CLPlesen
s = .Replace(s, "")
CLPschreiben s
End With
.Paste .Range("B1")
.Range("B:B").TextToColumns .Range("B1")
End With
End Sub

Public Function CLPlesen() As String
Dim IE As Object
On Error Resume Next
Set IE = CreateObject("HTMLfile")
CLPlesen = IE.ParentWindow.ClipboardData.GetData("text")
Set IE = Nothing
End Function

Public Sub CLPschreiben(derText As String)
Dim IE As Object
Set IE = CreateObject("HTMLfile")
IE.ParentWindow.ClipboardData.SetData "text", &q ...
  Thema: Txt-Datei in Array importieren 
Phelan XLPH

Antworten: 13
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Sep 2011, 12:53   Titel: AW: Txt-Datei in Array importieren Version: Office 2007
Sub XLPH()
Dim pfad As String
Dim sTxt As String
Dim arZ As Variant

pfad = "D:\Test\test.txt"

Open pfad For Input As #1
sTxt = Input(LOF(1), #1)
Close #1

arZ = Split(sTxt, vbCrLf)

End Sub
  Thema: Wörter die nur aus GROßBUCHSTABEN bestehen löschen 
Phelan XLPH

Antworten: 11
Aufrufe: 1552

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Sep 2011, 06:45   Titel: AW: Wörter die nur aus GROßBUCHSTABEN bestehen löschen Version: Office 2003
Sub xlph()
With Tabelle1.UsedRange
With .Columns(.Columns.Count).Offset(, 1)
.Select
.FormulaR1C1 = "=IF(RC2="""","""",IF(CODE(RIGHT(UPPER(RC2),1))=CODE(RIGHT(RC2,1)),""x"",RC2))"
.Copy
.Parent.Cells(.Row, 2).PasteSpecial xlPasteValues
.ClearContents
End With
End With
End Sub
  Thema: Txt-Datei in Array importieren 
Phelan XLPH

Antworten: 13
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Sep 2011, 21:45   Titel: AW: Txt-Datei in Array importieren Version: Office 2007
Sub XLPH()
Dim pfad As String
Dim sTxt As String
Dim i As Long
Dim n As Long
Dim k As Integer
Dim arZ As Variant
Dim arT As Variant
Dim arErg As Variant
Dim arPos As Variant

pfad = "D:\Test\test.txt"


Open pfad For Input As #1
sTxt = Input(LOF(1), #1)
Close #1

With CreateObject("VbScript.Regexp")
.Global = True
.Ignorecase = True
.Pattern = " {12,12}"
sTxt = .Replace(sTxt, "0 # ")
.Pattern = " {2,}"
sTxt = .Replace(sTxt, " ")
.Pattern = "#"
sTxt = .Replace(sTxt, "")
End With


arZ = Split(sTxt, vbCrLf)

ReDim arPos(1 To UBound(arZ) + 1)
For i = 0 To UBound(arZ)
If arZ(i) Like &qu ...
  Thema: Txt-Datei in Array importieren 
Phelan XLPH

Antworten: 13
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Sep 2011, 19:58   Titel: AW: Txt-Datei in Array importieren Version: Office 2007
Also nach jedem ELEMENT gibt es einen neuen Block?
  Thema: Txt-Datei in Array importieren 
Phelan XLPH

Antworten: 13
Aufrufe: 377

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Sep 2011, 18:48   Titel: AW: Txt-Datei in Array importieren Version: Office 2007
Hallo,

das dürfte recht schnell sein:

Sub XLPH()
Dim pfad As String
Dim sTxt As String
Dim i As Long
Dim n As Long
Dim arZ As Variant
Dim arT As Variant
Dim arErg As Variant

Dim t1 As Single
Dim t2 As Single

t1 = Timer

pfad = "D:\Test\test.txt"


Open pfad For Input As #1
sTxt = Input(LOF(1), #1)
Close #1

With CreateObject("VbScript.Regexp")
.Global = True
.Ignorecase = True
.Pattern = " {12,12}"
sTxt = .Replace(sTxt, "0 # ")
.Pattern = " {2,}"
sTxt = .Replace(sTxt, " ")
.Pattern = "#"
sTxt = .Replace(sTxt, "")
End With

arZ = Split(sTxt, vbCrLf)
For i = 0 To UBound(arZ)
If InStr(arZ(i ...
  Thema: PDF mit API-ShellExecute maximiert öffnen 
Phelan XLPH

Antworten: 2
Aufrufe: 1039

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2011, 21:26   Titel: PDF mit API-ShellExecute maximiert öffnen Version: Office 2007
Hallo,

wie der titel schon vermuten lässt, möchte ich ein PDF-Datei maximiert öffnen.
Mit APIs hab ichs nicht so, welche Parameter müssen gesetzt werden?

Die Suche hat mich nicht weitergebracht.

Also ich möchte auf einen Button klicken und die PDF soll sich maxiemiert und
lesebereitwillig öffnen.

Jmand ne Ahnung?
  Thema: Nervige DateFunktion - Wie diese drei Problembären lösen : - 
Phelan XLPH

Antworten: 3
Aufrufe: 155

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2011, 20:09   Titel: AW: Nervige DateFunktion - Wie diese drei Problembären lösen Version: Office 2010
Sub xlph()
Dim D As Date

D = Now

If Day(D) >= 20 Or Day(D) <= 5 Then _
MsgBox "Im Zeitraum", , D Else MsgBox "...außerhalb", , D

If Day(D) >= 6 And Day(D) <= 19 Then _
MsgBox "Im Zeitraum", , D Else MsgBox "...außerhalb", , D

Select Case Weekday(D)
Case 1: MsgBox "Sonntag", , D
Case 7: MsgBox "Samstag", , D
Case Else: MsgBox "Mo-Fr", , D
End Select

If Hour(D) >= 7 And Hour(D) <= 19 Then _
MsgBox "Im Zeitraum", , D Else MsgBox "...außerhalb", , D

End Sub
  Thema: pq-Formel mit Excel und VBA 
Phelan XLPH

Antworten: 16
Aufrufe: 1380

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2011, 10:38   Titel: AW: pq-Formel mit Excel und VBA Version: Office 2010
das hier ist irgendwie verwirrend: MNF = "P=2"
  Thema: Brauche Hilfe Automatische erstellen einer Auftragsnummer 
Phelan XLPH

Antworten: 9
Aufrufe: 569

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2011, 10:18   Titel: AW: Brauche Hilfe Automatische erstellen einer Auftragsnumme Version: Office 2007
Private Sub CommandButton1_Click()
Dim dat As Date
dat = Date
Rows("3:3").Insert
If Left(Range("A4"), 8) = Format(dat, "yyyymmdd") Then
Range("A3") = Range("A4") + 1
Else
Range("A3") = Format(dat, "yyyymmdd") & "001"
End If
End Sub
  Thema: Brauche Hilfe Automatische erstellen einer Auftragsnummer 
Phelan XLPH

Antworten: 9
Aufrufe: 569

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2011, 06:05   Titel: AW: Brauche Hilfe Automatische erstellen einer Auftragsnumme Version: Office 2007
Private Sub CommandButton1_Click()
Rows("3:3").Insert
Range("A3") = Format(Date, "yyyymmdd") & Format(CLng(Date - 40803), "000")
End Sub
  Thema: Berechnung von Reihen mit VBA + Excel 
Phelan XLPH

Antworten: 1
Aufrufe: 726

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2011, 06:56   Titel: AW: Berechnung von Reihen mit VBA + Excel Version: Office 2010
Function StrSumme(wert, Trennzeichen, Faktor)
Dim ar As Variant
Dim i As Integer
ar = Split(wert, Trennzeichen)
For i = 0 To UBound(ar)
ar(i) = ar(i) * Faktor
Next
StrSumme = Join(ar, Trennzeichen)
End Function

AUFRUF Bsp.: =StrSumme(C3;";";2)

Function Harm(S)
Dim n As Long
Dim erg As Double
Do Until erg >= S
n = n + 1
erg = erg + 1 / n
If n > 10 ^ 5 * 5 Then Harm = "overload": Exit Function
Loop
Harm = n
End Function

AUFRUF Bsp.: =HARM(S)

Das macht 10€.
  Thema: Dropdown sehr kompliziert gestalten! Benötige dringend Hilfe 
Phelan XLPH

Antworten: 8
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2011, 06:35   Titel: AW: Dropdown sehr kompliziert gestalten! Benötige dringend H Version: Office 2003
Idea
  Thema: Range für geschlossene Datei innerhalb von WoksheetFunction 
Phelan XLPH

Antworten: 10
Aufrufe: 419

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Sep 2011, 19:25   Titel: AW: Range für geschlossene Datei innerhalb von WoksheetFunct Version: Office 2003
Sub Bsp()
Dim Filterspalte As Integer
Range("A1").Formula = "=MATCH(""Filtern"",'D:\TestX\A\[A.xls]A'!$1:$1,0)"
Filterspalte = Range("A1").Value
End Sub
  Thema: Problem mit Frequency WorksheetFunction 
Phelan XLPH

Antworten: 3
Aufrufe: 569

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Sep 2011, 02:31   Titel: AW: Problem mit Frequency WorksheetFunction Version: Office 2007
Sub test()
Dim Input_ As Variant
Dim Output As Range
Dim y As Variant

Input_ = ActiveSheet.Range("A1:A5")
Set Output = ActiveSheet.Range("D7")


y = Application.WorksheetFunction.Frequency(Input_, Array(1))
Output.Resize(UBound(y)).Value = y

End Sub
 
Seite 247 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 244, 245, 246, 247, 248, 249, 250 ... 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