Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 473 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 470, 471, 472, 473, 474, 475, 476 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Verschiedene VBAs in Sachen Hexadezimal 
Phelan XLPH

Antworten: 5
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 07. Jun 2010, 06:19   Titel: AW: Verschiedene VBAs in Sachen Hexadezimal Version: Office 2003
jetzt auch mehr als 8Zeichen Ausgabe:

Function HexAddHex(HEX1 As String, HEX2 As String)
Dim hx1() As Byte
Dim hx2() As Byte
Dim i As Long
Dim sum As Integer

If Len(HEX1) > Len(HEX2) Then
HEX2 = String(Len(HEX1) - Len(HEX2), "0") & HEX2
Else
HEX1 = String(Len(HEX2) - Len(HEX1), "0") & HEX1
End If
hx1 = StrConv(UCase(HEX1), vbFromUnicode)
hx2 = StrConv(UCase(HEX2), vbFromUnicode)
For i = UBound(hx1) To 0 Step -1
Select Case hx1(i)
Case 48 To 57, 65 To 70
Case Else: HexAddHex = CVErr(xlErrValue): Exit Function
End Select
Select Case hx1(i)
Case 48 To 57, 65 To 70
Case Else: HexAddHex = CVErr(xlErrValue): Exit Function
End Select
sum = hx1(i) - IIf(hx1(i) > 57, 55, 48) + _ ...
  Thema: Verschiedene VBAs in Sachen Hexadezimal 
Phelan XLPH

Antworten: 5
Aufrufe: 912

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jun 2010, 23:11   Titel: AW: Verschiedene VBAs in Sachen Hexadezimal Version: Office 2003
Auch ne Variante...leider nur bis 8Zeichen Ausgabe.

Function HexAddHex(HEX1 As String, HEX2 As String) As String
Dim i As Long
Dim hx1() As Byte, hx2() As Byte
Dim sum1 As Double, sum2 As Double, dz As Double
Dim vntRest As Variant, vntDZ As Variant
hx1 = StrConv(HEX1, vbFromUnicode)
hx2 = StrConv(HEX2, vbFromUnicode)
For i = 0 To UBound(hx1)
Select Case hx1(i)
Case 48 To 57, 65 To 70
sum1 = sum1 + (hx1(i) - IIf(hx1(i) > 57, 55, 48)) * 16 ^ (UBound(hx1) - i)
Case Else: Exit Function
End Select
Next
For i = 0 To UBound(hx2)
Select Case hx2(i)
Case 48 To 57, 65 To 70
sum2 = sum2 + (hx2(i) - IIf(hx2(i) > 57, 55, 48)) * 16 ^ (UBound(hx2) - i)
Case Else: ...
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jun 2010, 21:59   Titel: AW: Zählwerk Version: Office 2007
0.1 -> 0,1 Sekunde
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jun 2010, 17:14   Titel: AW: Zählwerk Version: Office 2007
Hallo,

also ich kann deinen Fehler nicht nachvollziehen, habe dennoch einen
anderen gefunden und beseitigt, und zwar lief es in einen Fehler falls keine
Dateien sich im Ordner befanden.

Noch was: Wird in dem Ordner UMBENANNT so wird das ebenso als
Durchlauf gezählt!
  Thema: Rechenzeit verkürzen 
Phelan XLPH

Antworten: 28
Aufrufe: 2325

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jun 2010, 00:14   Titel: AW: Rechenzeit verkürzen Version: Office 2003
Hallo Joanna,

hast du es schon mit der VBA-Hilfe versucht. Darin wird es sehr gut beschrieben.
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Jun 2010, 00:06   Titel: AW: Zählwerk Version: Office 2007
Hallo,

sobald eine Datei aus dem Ordner verschwindet, wird hochgezählt
und der Name sowie das Datum der letzten Änderung aufgelistet.
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jun 2010, 12:07   Titel: AW: Zählwerk Version: Office 2007
Werden die Dateien in dem Ordner erstellet oder in diesen verschoben?
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jun 2010, 07:16   Titel: AW: Zählwerk Version: Office 2007
Hallo,

ich denk ich hab übers Ziel hinausgeschossen, hier nochmal eine
abgespeckte Möglichkeit.
  Thema: Zählwerk 
Phelan XLPH

Antworten: 16
Aufrufe: 717

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Jun 2010, 02:06   Titel: AW: Zählwerk Version: Office 2007
Hallo,

hier mal mit auflistung in einer Listbox.
  Thema: Frage zu SpecialCells 
Phelan XLPH

Antworten: 7
Aufrufe: 379

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 14:34   Titel: AW: Frage zu SpecialCells Version: Office 2003
Sub ph()
MsgBox Range("A:A").SpecialCells(xlCellTypeFormulas, xlNumbers).Address
End Sub
  Thema: Konvertierung von String zu Zahl 
Phelan XLPH

Antworten: 1
Aufrufe: 332

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 14:31   Titel: AW: Konvertierung von String zu Zahl Version: Office 2003
If IsNumeric(TextBox1) then
Cells(1,1) = Cdbl(TextBox1)
End If
  Thema: Textfelder zur Laufzeit in Userform generieren? 
Phelan XLPH

Antworten: 3
Aufrufe: 759

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 11:31   Titel: AW: Textfelder zur Laufzeit in Userform generieren? Version: Office 2003
Hallo,

hier mit anpassung der Userform-Höhe:

Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim dblTOP As Double
Dim i As Integer
'minimale Höhe ermitteln
For Each ctrl In Controls
If dblTOP < ctrl.Top + ctrl.Height Then _
dblTOP = ctrl.Top + ctrl.Height
Next

For i = 1 To 3
With Controls.Add("Forms.TextBox.1", "txtTMP" & i)
.Left = 10
.Width = 80
.Height = 18
.Top = (.Height + 10) * i + dblTOP

.Text = .Name

Me.Height = .Top + .Height + 30
End With
Next
End Sub
  Thema: vormatierung / anzeige tabellenblatt 
Phelan XLPH

Antworten: 1
Aufrufe: 182

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 11:21   Titel: AW: vormatierung / anzeige tabellenblatt Version: Office XP (2002)
Das hättest auch aufzeichnen können:
With ActiveWindow
.DisplayGridlines = False
.Zoom = 30
End With
  Thema: Ordnerstruktur mit Makro erzeugen 
Phelan XLPH

Antworten: 15
Aufrufe: 900

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 11:05   Titel: AW: Ordnerstruktur mit Makro erzeugen Version: Office 2007
Hab hier auch was von Case:

Option Explicit

Const strPath As String = "E:\" ' anpassen
Dim FSO, FO, FU, F
Dim lRow As Long
Dim iCol As Integer

Public Sub Ordner_Dateien_Auflisten() 'von Case
Set FSO = CreateObject("Scripting.FileSystemObject")
'GetSubFolders_Files strPath ' Versatz nur erste Ebene
GetSubFolders_Files strPath, True, False ' Komplett mit Versatz
lRow = 0
iCol = 0
End Sub

Function GetSubFolders_Files(pfad, Optional blnIndention As Boolean = False, _
Optional blnOne As Boolean = True)
Dim blnTMP1 As Boolean
Dim blnTMP As Boolean
blnTMP = blnIndention
blnTMP1 = blnOne
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
iCol = iCol + 1
If Not blnIndention Then iCol = 1
If F.ParentFolder.Path <> strPath And blnOne Then iCol = iCol + 1
...
  Thema: Funktion: Round(Rnd(), 0) und Verteilung 
Phelan XLPH

Antworten: 25
Aufrufe: 1637

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 07:34   Titel: AW: Funktion: Round(Rnd(), 0) und Verteilung Version: Office 2003
Sub ph()
Dim arr() As Integer
Dim i As Integer, k As Integer
Dim h As Integer
Dim posZ As Integer
Dim posS As Integer
Dim counter As Integer

ReDim arr(1 To 5, 1 To 5)

For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
counter = counter + 1
arr(i, k) = IIf(counter <= UBound(arr) * UBound(arr, 2) / 3, 1, 0)
Next
Next

For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
posZ = Int(UBound(arr) * Rnd + 1)
posS = Int(UBound(arr, 2) * Rnd + 1)
h = arr(i, k)
arr(i, k) = arr(posZ, posS)
arr(posZ, posS) = h
Next
Next

Tabelle1.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
 
Seite 473 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 470, 471, 472, 473, 474, 475, 476 ... 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