Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 755 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 752, 753, 754, 755, 756, 757, 758 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Laufzeit Problem 
Phelan XLPH

Antworten: 9
Aufrufe: 272

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 14:01   Titel: AW: Laufzeit Problem Version: Office 2003
Hallo mathias,

hättste mir sagen sollen dass für 3000 Zeilen ist

probiers hiermit:

Sub ZeilenKopie()
Dim arr As Variant
Dim wks As Worksheet
Dim ZeilenVersatz As Integer
Dim i As Long
Dim k As Long
Dim z As Long
Dim t As Double
Dim arrNeu() As Variant
'Worksheets("Ziel").Cells.Clear
t = Timer

ZeilenVersatz = 7
arr = Worksheets("Quelle").Range("A1").CurrentRegion 'Quelle anpassen
Set wks = Worksheets("Ziel") 'Ziel anpassen

ReDim arrNeu(UBound(arr) * (ZeilenVersatz + 1), UBound(arr, 2))
For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
arrNeu(i + z - 1, k - 1) = arr(i, k)
Next
z = z + ZeilenVersatz
Next

'wks.Range("A1").Resize(UBound(arrNeu) + 1, UBound(arrNeu, 2) + 1) = arrNeu
wks.Range("A1", wks.Ce ...
  Thema: Hyperlink als Foto darstellen 
Phelan XLPH

Antworten: 14
Aufrufe: 703

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 12:52   Titel: AW: Hyperlink als Foto darstellen Version: Office XP (2002)
Mach eine kopie vom Bild.
Diese dann verkleinern und mit der entsprechende Zelle des tabellenblattes
auf der das Bild sich befindet verlinken!

zB Very Happy
  Thema: TextBox Uhrzeit falsche Eingabe verhindern 
Phelan XLPH

Antworten: 8
Aufrufe: 3231

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 12:22   Titel: AW: TextBox Uhrzeit falsche Eingabe verhindern Version: Office XP (2002)
Hallo ransi,

...probiers jetzt mal....


...weisch i hab ja eh kein Mittag von daher Laughing
  Thema: TextBox Uhrzeit falsche Eingabe verhindern 
Phelan XLPH

Antworten: 8
Aufrufe: 3231

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 12:01   Titel: AW: TextBox Uhrzeit falsche Eingabe verhindern Version: Office XP (2002)
Hallo,

Geht auch zur Laufzeit:

So viel größer ist der Aufwand doch nicht:


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case 48 To 57 'Zahlen von 0 bis 9 OK
Case 42 To 47 '* + , - . / umwandeln in :
KeyAscii = 58
Case 58 ': = OK
Case Else 'Alle anderen löschen
KeyAscii = 0
End Select

'Format erzwingen
Select Case Len(TextBox1.Text)
Case 0
If Not Chr(KeyAscii) Like "#" Or _
Chr(KeyAscii) > 2 Then KeyAscii = 0
Case 1
If Not Chr(KeyAscii) Like "#" Then
KeyAscii = 0
Else
If TextBox1.Text = 2 And _
Chr(KeyAscii) > 3 Then KeyAscii = 0
End If
Case 2
If Not Chr(KeyAscii) = ":" Then KeyAscii ...
  Thema: Ordnerpfad festlegen 
Phelan XLPH

Antworten: 7
Aufrufe: 398

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 10:33   Titel: AW: Ordnerpfad festlegen Version: Office 2003
Hallo,

was aus der Hilfe:

Sub F()

Dim fileSaveName
Dim Pfad

Pfad = "d:\test\" 'ANPASSEN
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=Pfad, fileFilter:="Excel Datei (*.xls), *.xls")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If

End Sub
  Thema: sverweis-Makro für Riesendatei 
Phelan XLPH

Antworten: 2
Aufrufe: 287

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Feb 2009, 09:09   Titel: AW: sverweis-Makro für Riesendatei Version: Office 2007
Servus,

Mach sicherheitshalber eine Kopie von "Kommentar"
An einigen Stellen müssen noch Anpassungen gemacht werden, ist gekennzeichnet!

ins StandardModul damit:

Sub Synchronisieren()
'Gehört in die "Kommentar" - Datei
Dim wkbQ As Workbook
Dim wkbZ As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim rngQ As Range
Dim rngZ As Range
Dim zz As Range
Dim zq As Range
Dim DicQ As Object
Dim DicZ As Object
Dim Datei As String
Dim Pfad As String
Dim sB, sC, sD, sE As Variant
Dim KeyBCDE
Dim lzQ As Long

'Quelle Datei
Datei = "RohDaten.xls" 'ANPASSEN
Pfad = "d:\test\" 'ANPASSEN

On Error Resume Next
Workbooks(Datei).Activate
If Err.Number > 0 Then
Err.Clear
On Error Resume Next
Workbooks.Open Pfad & Datei
If Err.Number > 0 Then
MsgBox "Datei konnte nicht gefunden werden in:" & vbLf & Pfad, , "Hinweis"
Err.Clea ...
  Thema: Range Name not valid 
Phelan XLPH

Antworten: 25
Aufrufe: 1348

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 23:41   Titel: AW: Range Name not valid Version: Office 2003
Gar nix! Dein Code hat bei mir funktioniert.

mmmmmhhhh r.mueller, du bist ein Hellseher!

...falls das stimmt dass die Namen der Tabellenblätter Leerzeichen enthalten! Smile
  Thema: VBA Daten aus Tabelle auslesen und in andere kopieren -HILFE 
Phelan XLPH

Antworten: 28
Aufrufe: 4364

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 23:04   Titel: AW: VBA Daten aus Tabelle auslesen und in andere kopieren -H Version: Office 2003
Welche Daten sollen denn kopiert werden in welche spalte stehen die bzw.
nach was soll innerhalb eines solchen blocks (Boottyp pro Block) gesucht werden.
wohin soll die infor kopiert werden.zeile für zeile untereinander?
Pro Zeile ein boot-Typ?
  Thema: Range Name not valid 
Phelan XLPH

Antworten: 25
Aufrufe: 1348

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 22:24   Titel: AW: Range Name not valid Version: Office 2003
Du hast wsheet mit in den S´tring genommen, dabei soll er ja nur den
Inhalte der Variablen nehmen:

ActiveWorkbook.Names.Add Name:=wsheet & "_AAA", RefersToR1C1:= _
"=OFFSET(" & wsheet & "!R2C1,0,0,COUNTA(" & wsheet & "!R2C1:R65000C1),1)"
'
ActiveWorkbook.Names.Add Name:=wsheet & "_BBB", RefersToR1C1:= _
"=OFFSET(" & wsheet & "!R2C2,0,0,COUNTA(" & wsheet & "!R2C2:R65000C2),1)"
  Thema: Preise ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 313

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 22:15   Titel: AW: Preise ersetzen Version: Office 2003
PProbiers mal:

Sub EuroInDollar()
Dim rng As Range
Dim zelle As Range
Dim arr As Variant
Dim i As Integer

Dim dblDK As Double

Set rng = Selection

'DollarKurs
dblDK = 1.35

For Each zelle In rng
MsgBox zelle.Formula
MsgBox zelle.Value
If InStr(zelle.Value, "€") > 0 Or _
InStr(zelle.Formula, "€") > 0 Then
arr = Split(Trim(zelle), " ")
For i = 0 To UBound(arr)
If InStr(arr(i), "€") > 0 Then
arr(i) = Format((Val(Replace(arr(i), ",", ".")) * dblDK), "###0.00") & "$"
Exit For
End If
Next
MsgBox Join(arr, " ")
zelle = Join(arr, " ")
End If
Next

End Sub

Sind die Formel vielleicht geschützt?

Eine möglichke ...
  Thema: Range Name not valid 
Phelan XLPH

Antworten: 25
Aufrufe: 1348

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 21:39   Titel: AW: Range Name not valid Version: Office 2003
so gehts

ActiveWorkbook.Names.Add Name:=wsheet & "_AAA", RefersToR1C1:= _
"=OFFSET(wsheet!R2C1,0,0,COUNTA(wsheet!R2C1:R65000C1),1)"
'
ActiveWorkbook.Names.Add Name:=wsheet & "_BBB", RefersToR1C1:= _
"=OFFSET(wsheet!R2C2,0,0,COUNTA(wsheet!R2C2:R65000C2),1)"
  Thema: Range Name not valid 
Phelan XLPH

Antworten: 25
Aufrufe: 1348

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 21:32   Titel: AW: Range Name not valid Version: Office 2003
Möchtest du die Namen hinzufügen oder abrufen?
  Thema: Timer abschalten geht nicht! 
Phelan XLPH

Antworten: 8
Aufrufe: 857

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 21:06   Titel: AW: Timer abschalten geht nicht! Version: Office 2007
Viele Wege fürn nach Rom. Du nimmst deinen ich nehm meinen Very Happy
  Thema: Preise ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 313

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 20:40   Titel: AW: Preise ersetzen Version: Office 2003
Poste mal ein paar Beispiele, wie der Inhalt der Zellen ist
  Thema: Timer abschalten geht nicht! 
Phelan XLPH

Antworten: 8
Aufrufe: 857

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Feb 2009, 20:28   Titel: Re: AW: Timer abschalten geht nicht! Version: Office 2007
Hallo,

Auf das Rücksetzen kannst ganz verzichten:

Kommt drauf an wozu man OnTime verwendet. In deinem Fall
mag sein, aber wenn ich eine andere Mappe aktiviere wird das
OnTime nicht zurückgesetzt (zeigt sich in meinem Beispiel).

Also läuft die Rotine immer noch im Hintergrund!
Vielleicht möchte man ja diese Endlosschleife verlassen- wie machst du dass dann?
Mappe schließen und wieder öffnen? Glaub i net!

Oder? Wink
 
Seite 755 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 752, 753, 754, 755, 756, 757, 758 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme