Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 333 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 330, 331, 332, 333, 334, 335, 336 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Hilfe bei einer Studiumsaufgabe :-/ 
Phelan XLPH

Antworten: 5
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 18:27   Titel: AW: Hilfe bei einer Studiumsaufgabe :-/ Version: Office 2007
Hallo,

dafür musst du meinen Namen verbreiten Very Happy

Sub ph_1()
Dim s As String
Dim x() As Byte
Dim i As Byte
Do
s = InputBox("Bitte 0-en oder 1-en eintragen (max. 30):", "Eingabe: Binär")
If s = "" Then Exit Sub
Loop Until Len(s) - Len(Replace(s, "0", "")) - Len(Replace(s, "1", "")) = 0 And Len(s) <= 30

ReDim x(Len(s) - 1)
For i = 1 To Len(s)
x(i - 1) = CInt(Mid(s, i, 1))
Next

Range("A1").Resize(UBound(x) + 1) = WorksheetFunction.Transpose(x)
End Sub

Sub ph_2()
Dim s_1 As String
Dim s_2 As String
Dim x() As Byte
Dim y() As Byte
Dim m As Integer
Dim i As Byte

Do
s_1 = InputBox ...
  Thema: String / Logik-Problem 
Phelan XLPH

Antworten: 43
Aufrufe: 1256

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 14:49   Titel: AW: String / Logik-Problem Version: Office 2003
Ich denke das ist zu komplex!

Hier noch eine kleine Beschleunigung muss aber noch ausgiebig getestet werden:

Function RegelNeu_2(Codes As String, Regel As String)
Dim i As Long
Dim C As String, R As String
Dim x() As Byte
x = StrConv(Regel, vbFromUnicode)

Codes = " " & Codes & " "

For i = 0 To UBound(x)
Select Case x(i)
Case 43, 45, 47, 40, 41
If C <> "" Then
RegelNeu_2 = RegelNeu_2 & (InStr(Codes, " " & C & " ") > 0) * -1
C = ""
End If

Select Case x(i)
Case 43
RegelNeu_2 = RegelNeu_2 & "*"
Case 47
RegelNeu_2 = RegelNeu_2 & "+"
Case 45
RegelNeu_2 = Left(RegelNeu_2, Len(Reg ...
  Thema: String / Logik-Problem 
Phelan XLPH

Antworten: 43
Aufrufe: 1256

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 13:16   Titel: AW: String / Logik-Problem Version: Office 2003
Hallo Thomas,

gute Idee mit dem "<>". Bin nicht drauf gekommen!

Als Funktion mit Negation:
Function RegelAuswerten(Produkte, Regel)
Dim Regex As Object
Dim arProdukte, arRegel
Dim a, b, c, d, n, f
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

a = Produkte '"A111 B222 C333 110 211"
b = Regel '"(A111/A222)+-(B111/110)"

Set Regex = CreateObject("VBScript.Regexp")

'Debug.Print Trim(a)

With Regex
.Global = True
.IgnoreCase = True

'Codes extrahieren ERG:[A111 A222 B111 110]
.Pattern = "[ /\(\)\+-]+"
c = .Replace(b, " ")
c = Trim(.Replace(c, " "))

'Debug.Print Trim(c)

'Operatoren/Klammern extrahieren ERG& ...
  Thema: String / Logik-Problem 
Phelan XLPH

Antworten: 43
Aufrufe: 1256

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 02:16   Titel: AW: String / Logik-Problem Version: Office 2003
Hallo,

obs dafür eine mathematische Funktion gibt? Confused

Wieviele Zeichen ins Evaluate passen weiss ich auch nicht?

Vielleicht wie beim Range("???") 256 zeichen, vielleicht auch mehr.
Musst du testen.
  Thema: String / Logik-Problem 
Phelan XLPH

Antworten: 43
Aufrufe: 1256

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 01:45   Titel: AW: String / Logik-Problem Version: Office 2003
Die Nagation müsste noch gelöst werden:

Sub ph()
Dim Regex As Object
Dim a, b, c, d, i, f
Dim Dic As Object

Set Dic = CreateObject("Scripting.Dictionary")

a = "A111 B222 C333 110 211"
b = "(A111/A222)+(B111/110)"

Set Regex = CreateObject("VBScript.Regexp")

Debug.Print Trim(a)

With Regex
.Global = True
.IgnoreCase = True

'Codes extrahieren ERG:[A111 A222 B111 120]
.Pattern = "[ /\(\)\+]+"
c = .Replace(b, " ")
c = Trim(.Replace(c, " "))

Debug.Print Trim(c)

'Operatoren/Klammern extrahieren ERG:[( + )*( + )]
.Pattern = "[^ /\(\)\+]+"
d = .Replace(b, " ")
...
  Thema: String / Logik-Problem 
Phelan XLPH

Antworten: 43
Aufrufe: 1256

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jan 2011, 01:18   Titel: AW: String / Logik-Problem Version: Office 2003
Hallo thomas

deine Negation [+-] liefert [+Falsch], das ist doch nicht richtg, oder?
  Thema: Terminplan/Balkenplan 
Phelan XLPH

Antworten: 33
Aufrufe: 6868

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 22:50   Titel: AW: Terminplan/Balkenplan Version: Office 2007
Hallo,
als das mit dem hyperlink funktioniert bei mir überhaupt nicht. Habs weggelassen.

Hab alles in eine Funktion gepackt.
  Thema: Maximumfunktion 
Phelan XLPH

Antworten: 5
Aufrufe: 241

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 20:25   Titel: AW: Maximumfunktion Version: Office 2003
Sub Maxima_Koordinaten()
Dim rngBereich As Range
Dim rngC As Range
Dim sMax As String
Set rngBereich = Range("A1:D10") 'Anpassen

For Each rngC In rngBereich
If rngC.Value = WorksheetFunction.Max(rngBereich) Then
sMax = sMax & vbLf & rngC.Row & "," & rngC.Column
End If
Next
MsgBox "Zeile,Spalte" & vbLf & sMax
End Sub
  Thema: msgbox funktioniert nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 20:01   Titel: AW: msybox funktioniert nicht Version: Office 2007
Private Sub CommandButton1_Click()

'hier reinquetschen
If Len(TextBox1.Text) = 0 Then MsgBox "Eintrag in TextBox1 fehlt!", , "Info": Exit Sub

anlage = Textbox1.Value
monate = Textbox3.Value
.
.
.
  Thema: msgbox funktioniert nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 17:40   Titel: AW: msybox funktioniert nicht Version: Office 2007
Warum?
  Thema: Taktgeber schneller als Sekundentakt 
Phelan XLPH

Antworten: 3
Aufrufe: 1037

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 17:32   Titel: AW: Taktgeber schneller als Sekundentakt Version: Office 2k (2000)
Dim blnAbbruch As Boolean

Sub Test()
Dim t As Double
Dim i As Long
blnAbbruch = False
Do Until blnAbbruch
t = Timer: Do Until Timer > t + 0.01: DoEvents: Loop
i = i + 1
Range("A1") = i
Loop

End Sub

Sub abbrechen()
blnAbbruch = True
End Sub
  Thema: Scrollarea bei filter fehlerhaft 
Phelan XLPH

Antworten: 3
Aufrufe: 450

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 16:59   Titel: AW: Scrollarea bei filter fehlerhaft Version: Office 2003
Ja, Scrollarea hat da so seine Einschränkungen
  Thema: msgbox funktioniert nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 16:51   Titel: AW: msybox funktioniert nicht Version: Office 2007
Nein,

If Len(TextBox1.Text) = 0 Then MsgBox "Eintrag in TextBox1 fehlt!", , "Info": Exit Sub
  Thema: msgbox funktioniert nicht 
Phelan XLPH

Antworten: 8
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 16:45   Titel: AW: msybox funktioniert nicht Version: Office 2007
Kannst du das hier bitte erklären?

If monate > 12 <= 24 And anlage <= 500000 Then
  Thema: langsames Makro durch Array schneller macen 
Phelan XLPH

Antworten: 1
Aufrufe: 189

BeitragForum: Excel VBA (Makros)   Verfasst am: 12. Jan 2011, 16:38   Titel: AW: langsames Makro durch Array schneller macen Version: Office 2003
1. Wie sieht dein Code aus. Ließe sich vielleicht ohne Arrays beschleunigen
2. Wie groß ist die Tabelle
 
Seite 333 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 330, 331, 332, 333, 334, 335, 336 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum