Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 503 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 500, 501, 502, 503, 504, 505, 506 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Ausgewählte Zeilen *.txt in Excel importieren und zuordnen 
Phelan XLPH

Antworten: 7
Aufrufe: 938

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 20:39   Titel: AW: Ausgewählte Zeilen *.txt in Excel importieren und zuordn Version: Office 2003
Sub y()

Dim fs As Object, a As Object, strRetVal As String
Dim BlattName As String
Dim strPfad As String

Application.ScreenUpdating = False

strPfad = "D:\test\InOut.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(strPfad, 1, False)
Do While a.AtEndOfStream <> True
strRetVal = a.ReadLine
BlattName = Split(strRetVal, vbTab)(0)
BlattErstellen BlattName
ThisWorkbook.Worksheets(BlattName).Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, UBound(Split(strRetVal, vbTab)) + 1) = _
WorksheetFunction.Transpose(WorksheetFunction.Transpose(Split(strRetVal, vbTab)))
Loop
a.Close
Application.ScreenUpdating = True
End Sub
Sub BlattErstellen(ByVal strName As String)
On Error Resume Next
ThisWorkbook.Worksheets(strName).Select
If ...
  Thema: Begrenzung Nachkommastelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1398

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 19:39   Titel: AW: Begrenzung Nachkommastelle Version: Office 2003
Wenn ich nicht genau weiss um was es sich dreht dann ist alles ominös.. Very Happy

Aber gerne doch; die sind seit längerem hier zu finden:
...mag sein, kenne ich aber noch nicht Confused
  Thema: Begrenzung Nachkommastelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1398

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 19:16   Titel: AW: Begrenzung Nachkommastelle Version: Office 2003
Könnte jemand diese ominöse Zeiterfassungs-mappe ohne VBA-Code
hochladen, damit ich mir das mal anschauen kann?
  Thema: Ausgewählte Zeilen *.txt in Excel importieren und zuordnen 
Phelan XLPH

Antworten: 7
Aufrufe: 938

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 19:13   Titel: AW: Ausgewählte Zeilen *.txt in Excel importieren und zuordn Version: Office 2003
Sub y()

Dim fs As Object, a As Object, strRetVal As String
Dim arrHaus() As Variant
Dim arrGarten() As Variant
Dim arrGarage() As Variant
Dim i1 As Long, i2 As Integer, i3 As Integer
Dim strPfad As String

strPfad = "D:\test\InOut.txt"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(strPfad, 1, False)
Do While a.AtEndOfStream <> True
strRetVal = a.ReadLine

If InStr(strRetVal, "Haus") > 0 Then
i1 = i1 + 1
ReDim Preserve arrHaus(1 To 4, 1 To i1)
arrHaus(1, i1) = Split(strRetVal, vbTab)(0)
arrHaus(2, i1) = Split(strRetVal, vbTab)(1)
arrHaus(3, i1) = Split(strRetVal, vbTab)(2)
arrHaus(4, i1) = Split(strRetVal, vbTab)(3)
ElseIf InStr(strRetVal, "Garten") &g ...
  Thema: Begrenzung Nachkommastelle 
Phelan XLPH

Antworten: 16
Aufrufe: 1398

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 18:30   Titel: AW: Begrenzung Nachkommastelle Version: Office 2003
@Thomas

Was ist so schlimm an VBA???? Shock Shock Shock
  Thema: Zahl in gleicher Zelle addieren bzw. subtrahieren 
Phelan XLPH

Antworten: 1
Aufrufe: 1636

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 18:26   Titel: AW: Zahl in gleicher Zelle addieren bzw. subtrahieren Version: Office 2007
Hier wird Zelle Option Explicit

Dim dblWert As Double

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then
If Target <> "" Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = dblWert + Target
Application.EnableEvents = True
End If
Else
dblWert = 0
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Target.Cells(1)) Then dblWert = Target.Cells(1)
End Sub
  Thema: Excel Tabelle als Text Tabstopps getrennt speichern 
Phelan XLPH

Antworten: 7
Aufrufe: 3082

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 18:01   Titel: AW: Excel Tabelle als Text Tabstopps getrennt speichern Version: Office 2003
Sub Beisplie()
Dim strPfad As String

strPfad = "D:\test\Test.vo" 'Anpassen**********************

ThisWorkbook.Worksheets("Tabelle1").Copy 'ANPASSEN**********
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strPfad, xlUnicodeText
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
  Thema: Memory Konzentrationstest 
Phelan XLPH

Antworten: 14
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 15:00   Titel: AW: Memory Konzentrationstest Version: Office 2007
@Zero

Ist nur ein Auszug aus "Liste mit 198706 deutschen Wörtern ..."
http://www.ta7.de/txt/listen/index.htm

...hatte keine Zeit und Lust den Duden ins Excel manuell zu übernehmen.

Nein, das sollte nicht zu meiner Lebensaufgabe werden.... Laughing
  Thema: Memory Konzentrationstest 
Phelan XLPH

Antworten: 14
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 14:56   Titel: AW: Memory Konzentrationstest Version: Office 2007
@Rosch

...beeindruckend Cool
  Thema: Memory Konzentrationstest 
Phelan XLPH

Antworten: 14
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 14:44   Titel: AW: Memory Konzentrationstest Version: Office 2007
Amicros Hängemännchen etwas erweitert...
  Thema: Teilnehmer mittels VBA auslesen 
Phelan XLPH

Antworten: 5
Aufrufe: 412

BeitragForum: Excel VBA (Makros)   Verfasst am: 27. Dez 2009, 11:51   Titel: AW: Teilnehmer mittels VBA auslesen Version: Office 2007
Sub KonsolSort()
Dim wks As Worksheet
Dim wksZ As Worksheet
Dim lngLZ As Long
Dim arr As Variant

Set wksZ = ThisWorkbook.Worksheets("Starterliste")
wksZ.Range("A:C").Clear
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wksZ.Name Then
If Not IsArray(arr) Then
If WorksheetFunction.CountA(wks.Range("B4:D4")) > 0 Then _
arr = wks.Range("B4:D4")
End If
lngLZ = wks.Range("B" & wks.Rows.Count).End(xlUp).Row
If lngLZ >= 5 Then
wks.Range("B5:D" & lngLZ).Copy wksZ.Range("A" & wksZ.Rows.Count).End(xlUp).Offset(1)
End If
End If
Next
With wksZ.Range("A2").CurrentRegion
.Sort .Cells(1), xlAscending
End With
If IsArray(arr) Then _
wksZ.R ...
  Thema: Memory Konzentrationstest 
Phelan XLPH

Antworten: 14
Aufrufe: 1206

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Dez 2009, 23:11   Titel: AW: Memory Konzentrationstest Version: Office 2007
Bereits eingestellte Spiele(reien) Smile

http://www.office-loesung.de/ftopic332877_0_0_asc.php

http://www.office-loesung.de/ftopic348290_0_0_asc.php
  Thema: HILFE 
Phelan XLPH

Antworten: 10
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Dez 2009, 23:03   Titel: AW: HILFE Version: Office 2007
Sub Optimiert()
Dim dblSteigung As Double
Dim dblAchsenabschnitt As Double
Dim UG As Double
Dim OG As Double
Dim strX_Adr As String
Dim strY_Adr As String

UG = 2
OG = 4

With Worksheets("Kalibrierung")
strX_Adr = .Range("B" & UG & ":B" & OG).Address(0, 0, , True) 'Die Adresse des X-Bereichs ermitteln
strY_Adr = .Range("C" & UG & ":C" & OG).Address(0, 0, , True) 'Die Adresse des Y-Bereichs ermitteln
dblSteigung = Evaluate("SLOPE(" & strY_Adr & "," & strX_Adr & ")") 'Funktion(Achsenabschnitt) mit Adressen über Evaluate berechnen und einer Variablen zuweisen.
dblAchsenabschnitt = Evaluate("INTERCEPT(" & strY_Adr & "," & strX_Adr & ")") 'Funktion(Steigung) mit Adressen über Evaluate berechnen ...
  Thema: HILFE 
Phelan XLPH

Antworten: 10
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Dez 2009, 14:39   Titel: AW: HILFE Version: Office 2007
Sub x()
Dim dblSteigung As Double
Dim dblAchsenabschnitt As Double
Dim UntereGrenze As Double
Dim ObereGrenze As Double
Dim rngX_Werte As Range
Dim rngY_Werte As Range

UntereGrenze = 2
ObereGrenze = 4

With Worksheets("Kalibrierung")
Set rngX_Werte = .Range("B" & UntereGrenze & ":B" & ObereGrenze)
Set rngY_Werte = .Range("C" & UntereGrenze & ":C" & ObereGrenze)
dblSteigung = Evaluate("SLOPE(" & rngY_Werte.Address(0, 0) & "," & rngX_Werte.Address(0, 0) & ")")
dblAchsenabschnitt = Evaluate("INTERCEPT(" & rngY_Werte.Address(0, 0) & "," & rngX_Werte.Address(0, 0) & ")")
.Cells(2, 12) = dblSteigung & "*u+" & dblAchsenabschnitt
End With
End Sub
  Thema: Combobox-Eintrag in Zelle schreiben auf einer anderen Tabell 
Phelan XLPH

Antworten: 2
Aufrufe: 427

BeitragForum: Excel VBA (Makros)   Verfasst am: 26. Dez 2009, 14:16   Titel: AW: Combobox-Eintrag in Zelle schreiben auf einer anderen Ta Version: Office 2007
Private Sub ComboBox1_Click()
Worksheets("Tabelle1").Range("A1").Value = ComboBox1.Value
End Sub
 
Seite 503 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 500, 501, 502, 503, 504, 505, 506 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen