Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 518 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 515, 516, 517, 518, 519, 520, 521 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Import von Textdateien mit Leerzeilen 
Phelan XLPH

Antworten: 8
Aufrufe: 618

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2009, 20:23   Titel: AW: Import von Textdateien mit Leerzeilen Version: Office 2007
osder...

Sub x()
Dim Pfad As String
Dim Datei As String
Dim Txt As String
Dim Regex As Object
Dim arrZ As Variant
Dim arrS As Variant
Dim arrOut() As Variant
Dim i As Long, k As Long

Set Regex = CreateObject("VBScript.Regexp")

Pfad = "D:\Test\external_force_z\" 'Anpassen
Datei = Dir(Pfad & "*.txt")

Do While Datei <> ""
Open Pfad & Datei For Input As #1
Txt = Input(LOF(1), #1)
Close #1
arrZ = Split(Txt, vbCrLf)
ReDim arrOut(1 To UBound(arrZ) + 1, 1 To 2)
For i = 0 To UBound(arrZ)
arrS = Split(arrZ(i), vbTab)
For k = 0 To UBound(arrS)
If IsNumeric(arrS(k)) Then
arrOut(i + 1, k + 1) = Val(arrS(k))
Else
arrOut(i + 1, k + 1) = Trim$(arrS(k)& ...
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 21:11   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
Sub Uebertragen()
Dim i As Long, rngF As Range, Z As Long, Max As Long
Tabelle2.Range("A1").CurrentRegion.Offset(1, 1).ClearContents
Tabelle3.Range("A1").CurrentRegion.Offset(1, 1).ClearContents
With Tabelle1
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) = "G" Then
Set rngF = Tabelle2.Range("A2:A54").Find(.Cells(i, 7), , xlValues, xlWhole)
Max = 54
ElseIf .Cells(i, 2) = "K" Then
Set rngF = Tabelle3.Range("A2:A55").Find(.Cells(i, 7), , xlValues, xlWhole)
Max = 55
End If
If Not rngF Is Nothing Then
Do
rngF.Parent.Cells(rngF.Row + Z, Columns.Count).End(xlToLeft).Offset(, 1).Value = .Cells(i, 3).Value
Z = Z + Val ...
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 20:24   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
ersetze den Code...

Sub Uebertragen()
Dim i As Long, rngF As Range, Z As Long, Max As Long
Tabelle2.UsedRange.Offset(1, 1).ClearContents
Tabelle3.UsedRange.Offset(1, 1).ClearContents
With Tabelle1
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) = "G" Then
Set rngF = Tabelle2.Range("A2:A54").Find(.Cells(i, 7), , xlValues, xlWhole)
Max = 54
ElseIf .Cells(i, 2) = "K" Then
Set rngF = Tabelle3.Range("A2:A55").Find(.Cells(i, 7), , xlValues, xlWhole)
Max = 55
End If
If Not rngF Is Nothing Then
Do
rngF.Parent.Cells(rngF.Row + Z, Columns.Count).End(xlToLeft).Offset(, 1).Value = .Cells(i, 3).Value
Z = Z + Val(.Cells(i, 6))
L ...
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 17:16   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
genug des guten
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 17:04   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
Ich schreib dir noch du sollst mir DEIN Ziel posten und nicht mein Ergebnis.

Jetzt habs auch ich verstanden.
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 16:20   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
Genau das macht es doch
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 16:02   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
Weisst du was, trag mal von hand die ertsen drei in Tabelle2 ein.
Damit ich weiss wie das Ergebnis aiussehen soll. Alles andere ist Rätselraten.

Ich hasse Rätsel.... Laughing Laughing 8) Confused Confused Very Happy Rolling Eyes Embarassed Laughing Sad 8)
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 15:38   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
so?
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 14:59   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
dohin...
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 14:46   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
Sub Uebertragen()
Dim i As Long, rngF As Range
With Tabelle1
For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(i, 2) = "G" Then
Set rngF = Tabelle2.Range("A2:A54").Find(.Cells(i, 7), , xlValues)
Else
Set rngF = Tabelle2.Range("A61:A114").Find(.Cells(i, 7), , xlValues)
End If
If Not rngF Is Nothing Then
Tabelle2.Cells(rngF.Row, Columns.Count).End(xlToLeft).Offset(, 1).Value = .Cells(i, 3).Value
Set rngF = Nothing
End If
Next
End With
End Sub
  Thema: Rythmus Plan erstellen 
Phelan XLPH

Antworten: 22
Aufrufe: 1627

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 14:19   Titel: AW: Rythmus Plan erstellen Version: Office 2k (2000)
was heisst das:
Wegen X wert aller X Wochen ab Beginnwoche automatisch eintragen bis KW 53
  Thema: Automatisieren von Datum, Zeit und Zähler 
Phelan XLPH

Antworten: 11
Aufrufe: 1215

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 13:41   Titel: AW: Automatisieren von Datum, Zeit und Zähler Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
If Not Intersect(Target, Range("E:E")) Is Nothing Then
For Each cell In Intersect(Target, Range("E:E"))
If cell <> "" Then
Cells(cell.Row, 1) = WorksheetFunction.Max(Range("A:A")) + 1
Cells(cell.Row, 2) = Date
Cells(cell.Row, 3) = Time
Cells(cell.Row, 3).NumberFormat = "h:mm:ss"
Else
Range("A" & cell.Row & ":D" & cell.Row) = ""
End If
Next
End If
End Sub
  Thema: Automatisches vervielfältigen..... 
Phelan XLPH

Antworten: 2
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 12:49   Titel: AW: Automatisches vervielfältigen..... Version: Office 97
oder so...

Sub SoGehts()
Dim arr As Variant
Dim arrOut() As Variant
Dim i As Long, k As Integer
Dim m As Long, anz As Long

arr = Range("A1").CurrentRegion 'Anpassen

For i = 1 To UBound(arr)
For anz = 1 To Val(arr(i, 3))
m = m + 1
For k = 1 To UBound(arr, 2)
ReDim Preserve arrOut(1 To UBound(arr, 2), 1 To m)
If anz > 1 And k <= 2 Then
ElseIf k = 3 Then
arrOut(k, m) = 1
Else
arrOut(k, m) = arr(i, k)
End If
Next
Next
Next

Worksheets.Add.Range("A2").Resize(UBound(arrOut, 2), UBound(arrOut)) = _
WorksheetFunction.Transpose(arrOut)
ActiveSheet.Name = Format(Time, "hhmmss")
End Sub
  Thema: Zeilen nach bestimmten Kriterien auslesen und in neues Blatt 
Phelan XLPH

Antworten: 15
Aufrufe: 3329

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 09:50   Titel: AW: Zeilen nach bestimmten Kriterien auslesen und in neues B Version: Office 2003
Oh, da wird dir das hier gefallen...
  Thema: Fibonacchie Folge 
Phelan XLPH

Antworten: 6
Aufrufe: 466

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2009, 00:15   Titel: AW: Fibonacchie Folge Version: Office 2003
Böser Prof 8)

Sub FibonacciFolge()
Dim lngAnzahl As Long
Dim dblZahl1 As Double
Dim dblZahl2 As Double
Dim dblHilf As Double
Dim strFolge As String
Dim i As Long

lngAnzahl = 10 'Anpassen

dblZahl1 = 0 'Anpassen
dblZahl2 = 1 'Anpassen

strFolge = strFolge & ";" & dblZahl1
dblHilf = dblZahl2
For i = 1 To lngAnzahl
strFolge = strFolge & ";" & dblHilf
dblHilf = dblZahl2 + dblZahl1
dblZahl1 = dblZahl2
dblZahl2 = dblHilf
Next

MsgBox Mid(strFolge, 2)
End Sub
 
Seite 518 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 515, 516, 517, 518, 519, 520, 521 ... 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 Forum