Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 483 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 480, 481, 482, 483, 484, 485, 486 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Evaluate + Externer Verweis 
Phelan XLPH

Antworten: 9
Aufrufe: 372

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Mai 2010, 17:55   Titel: Evaluate + Externer Verweis Version: Office 2007
Hallo,

gibts hierfür nen Grund oder geht das einfach nicht?

lngLZQ = Evaluate("=COUNT('D:\Test\[SV2.xls]Tabelle1'!$C:$C)")

Was meinen die Profis?
  Thema: Makro schneller machen 
Phelan XLPH

Antworten: 10
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Mai 2010, 17:06   Titel: AW: Makro schneller machen Version: Office 2007
@Rosch

...da fähsrt du aber schweres Geschütz, ob der Fragende das versteht?
  Thema: Mehrere Zellen Runterkopieren 
Phelan XLPH

Antworten: 4
Aufrufe: 1066

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Mai 2010, 17:01   Titel: AW: Mehrere Zellen Runterkopieren Version: Office 2003
Sind die Debitorennummer in Spalte A denn nicht fest.
Und aufgrund dieser ziehst du die Daten per sverweis aus den anderen 3 bLättern?

Was du machen kannst ist die SVerweis-Formel im vba hinterlegen und beim öffnen der datei per Makro jedesmal zur Berechnung neu einsetzen
(evtl. in festwerte umwandeln) und beim Schliessen der Datei alle werte wieder
löschen.
  Thema: Makro schneller machen 
Phelan XLPH

Antworten: 10
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Mai 2010, 16:46   Titel: AW: Makro schneller machen Version: Office 2007
Teste mal:

Sub Makro()

Dim i As Integer
Dim lngLZZ As Long 'LetzteZeileZiel
Dim lngLZQ As Long 'LetzteZeileQuelle

Dim arrWSquell As Variant
Dim arrWBquell As Variant
Dim WBziel As Workbook
Dim WBquell As Workbook
Dim WSquell As Worksheet
Dim WSziel As Worksheet


arrWBquell = Array("A", "B", "C", "D", "E", "F", "G", "H")
arrWSquell = Array("a", "b", "c", "d", "e", "f", "g", "h")

Set WBziel = Workbooks("Aaaaaa")
Set WSziel = WBziel.Worksheets("Bbbbb")

For i = LBound(arrWBquell) To UBound(arrWBquell)
Set WBquell = Workbooks(arrWBquell(i))
Set WSquell = WBquell.Worksheets(arrWSquell(i))

With WSquell
lngLZQ = .Cells(Rows.Count, 3).End(xlUp).Row
End ...
  Thema: Zeile einfärben 
Phelan XLPH

Antworten: 3
Aufrufe: 372

BeitragForum: Excel VBA (Makros)   Verfasst am: 20. Mai 2010, 09:23   Titel: AW: Zeile einfärben Version: Office XP (2002)
ins codefenster der tabelle:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.EntireRow.Interior
If .Pattern = xlNone Then
.Pattern = xlGray16
.PatternColorIndex = 3
Else
.Pattern = xlNone
End If
End With
Cancel = True
End Sub
  Thema: Excel-Tabelle mit Datenblöcken in Listen umsortieren 
Phelan XLPH

Antworten: 3
Aufrufe: 810

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 23:13   Titel: AW: Excel-Tabelle mit Datenblöcken in Listen umsortieren Version: Office 2007
@Slowboarder

die Lösung gefällt Wink
  Thema: Sortierung von Daten 
Phelan XLPH

Antworten: 10
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 20:11   Titel: AW: Sortierung von Daten Version: Office 2003
oder etwas zügiger...

Sub ph_trans2()
Dim i As Integer
Dim k As Integer
Dim bereich As Variant
Dim arr As Variant, m As Long
bereich = Range("A1").CurrentRegion
ReDim arr(1 To UBound(bereich) * UBound(bereich, 2), 1 To 1)
For i = 1 To UBound(bereich)
For k = 1 To UBound(bereich, 2)
m = m + 1
arr(m, 1) = bereich(i, k)
Next
Next
Range("E1").Resize(UBound(arr)) = arr
End Sub
  Thema: Sortierung von Daten 
Phelan XLPH

Antworten: 10
Aufrufe: 284

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 19:58   Titel: AW: Sortierung von Daten Version: Office 2003
sowas?

Sub ph_trans()
Dim rngR As Range
Application.ScreenUpdating = False
For Each rngR In Range("A1").CurrentRegion.Rows
rngR.Copy
Cells(Rows.Count, 5).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
  Thema: Public Function übergibt variable nicht 
Phelan XLPH

Antworten: 13
Aufrufe: 405

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 19:30   Titel: AW: Public Function übergibt variable nicht Version: Office 2003
ich meinte nur mit einem String kannst du nicht weiter rechnen,
aber vielleicht benötigst dus ja nur für ne Anzeige und dieses bekommst du
auch kürzer:

Function schichtmo(i As Integer) As String
Dim t As Double
Select Case i
Case 102 To 124
t = (i - 102) * (1 / 48)
schichtmo = _
Format(t + (7 / 24), "hh:mm") & _
" - " & _
Format(t + (13 / 24), "hh:mm")
Case Else: schichtmo = ""
End Select
End Function

PS: 24:00 Uhr gibts praktisch nicht sondern 00:00 Uhr
  Thema: Werte aus .txt auslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 18:45   Titel: AW: Werte aus .txt auslesen Version: Office 97
Wenns jetzt nicht tut dann weiß ich auch nicht....

Sub ph()
Dim pfad As String
Dim Datei As String
Dim arr() As Variant
Dim arrU() As Variant
Dim i As Long
Dim zeile As Long
Dim fso, o, d, da, s, f, txt
Dim Regex As Object

Set Regex = CreateObject("VBScript.Regexp")
pfad = "d:\test\" 'Anpassen *********************

Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(pfad)
Set da = o.Files
For Each d In da
If d.Name Like "GB*.txt" Then
Set f = fso.OpenTextFile(pfad & d.Name, 1)
Do While f.AtEndOfStream <> True
s = f.ReadLine
With Regex
.Pattern = " +"
s = .Replace(s, "")
.Pattern = "#+"
...
  Thema: Public Function übergibt variable nicht 
Phelan XLPH

Antworten: 13
Aufrufe: 405

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 18:34   Titel: AW: Public Function übergibt variable nicht Version: Office 2003
...wenn ich das schon sehe
schichtmo = "07:00 - 13:00"
*hilfeschreiendschnellwegrenn*
  Thema: Werte aus .txt auslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 18:31   Titel: AW: Werte aus .txt auslesen Version: Office 97
Jetzt musst du nur noch den PFAD anpassen sonst nix mehr!

Sub ph()
Dim pfad As String
Dim Datei As String
Dim arr() As Variant
Dim arrU() As Variant
Dim i As Long
Dim zeile As Long
Dim fso, o, d, da, s, f, txt

pfad = "d:\test\" 'Anpassen *********************

Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(pfad)
Set da = o.Files
For Each d In da
If d.Name Like "*.txt" Then
Set f = fso.OpenTextFile(pfad & d.Name, 1)
Do While f.AtEndOfStream <> True
s = Replace(Replace(f.ReadLine, " ", ""), "#", "")
If s <> "" And InStr(s, "=") > 0 Then
i = i + 1
ReDim Preserve arr(1 To i&# ...
  Thema: Hilfe bei einem einfachen Makro 
Phelan XLPH

Antworten: 6
Aufrufe: 340

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 17:51   Titel: AW: Hilfe bei einem einfachen Makro Version: Office 2007
ins codefenster der tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B1" Or Target.Address(0, 0) = "B2" Then
Dim i As Integer, d As Double

For i = Val(Cells(1, 2)) To Val(Cells(2, 2)) - 1
d = d + i ^ 2
Next
MsgBox d
End If
End Sub
  Thema: Werte aus .txt auslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 17:23   Titel: AW: Werte aus .txt auslesen Version: Office 97
das kannste überspringen aber die Tabelle musste noch anpassen
  Thema: Werte aus .txt auslesen 
Phelan XLPH

Antworten: 23
Aufrufe: 1112

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Mai 2010, 16:32   Titel: AW: Werte aus .txt auslesen Version: Office 97
hab auch was probiert...

Sub ph()
Dim pfad As String
Dim Datei As String
Dim arr() As Variant
Dim arrU() As Variant
Dim i As Long
Dim zeile As Long
Dim fso, o, d, da, s, f, txt

pfad = "d:\test\" 'Anpassen *********************

Set fso = CreateObject("Scripting.FileSystemObject")
Set o = fso.GetFolder(pfad)
Set da = o.Files
For Each d In da
If d.Name Like "*.txt" Then 'Anpassen********************
Set f = fso.OpenTextFile(pfad & d.Name, 1)
Do While f.AtEndOfStream <> True
s = Replace(Replace(f.ReadLine, " ", ""), "#", "")
If s <> "" And InStr(s, "=") > 0 Then
i = i + 1
ReDim Preserve arr(1 To i)
...
 
Seite 483 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 480, 481, 482, 483, 484, 485, 486 ... 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 CSS