Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 117 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 114, 115, 116, 117, 118, 119, 120 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Makro code verkürzen 
Phelan XLPH

Antworten: 11
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 18:58   Titel: AW: Makro code verkürzen Version: Office 2003
Function SUCHEN_Spezial(x, Optional blnGenaueÜbereinstimmung As Boolean) As String
Dim k As Variant, s As String
x = x.Value
s = "14-13,12-12,13-12,12-11,12-15,14-14,00-00-14,00-00-12," & _
"00-00-16,00-00-17,17-12,14-11,14-00,14-11,14-11,40-20-40," & _
"40-40-60,40-50-60,40-30-10,40-30-30,40-30-40,40-30-60," & _
"13-00,12-00,00-10-00,14-18,14-17,15-12,00-00-13,00-00-11"

If Not blnGenaueÜbereinstimmung Then _
s = "*" & Replace(s, ",", "*,*") & "*"

SUCHEN_Spezial = "Sonstiges"
For Each k In Split(s, ",")
If x Like k Then Exit Function
Next
SUCHEN_Spezial = "-"
End Function

...hast recht, jetzt kann er wählen Wink
  Thema: Code für mehrere Textboxen 
Phelan XLPH

Antworten: 16
Aufrufe: 676

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 18:47   Titel: AW: Code für mehrere Textboxen Version: Office 2007
...
  Thema: + Formel optimierung 
Phelan XLPH

Antworten: 4
Aufrufe: 100

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 18:10   Titel: AW: + Formel optimierung Version: Office 2007
Da issrt du.

Die Summe-Funktion ist sehr schnell und obendrein wird der Bereich
in einem Satz berechnet.
  Thema: Makro code verkürzen 
Phelan XLPH

Antworten: 11
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 18:05   Titel: AW: Makro code verkürzen Version: Office 2003
oder ohne Übergabe:

Function SUCHEN_Spezial(x) As String
Dim k As Variant
x = x.Value
Const s = "14-13,12-12,13-12,12-11,12-15,14-14,00-00-14,00-00-12," & _
"00-00-16,00-00-17,17-12,14-11,14-00,14-11,14-11,40-20-40," & _
"40-40-60,40-50-60,40-30-10,40-30-30,40-30-40,40-30-60," & _
"13-00,12-00,00-10-00,14-18,14-17,15-12,00-00-13,00-00-11"
SUCHEN_Spezial = "Sonstiges"
For Each k In Split(s, ",")
If x Like k Then Exit Function
Next
SUCHEN_Spezial = "-"
End Function
  Thema: Duplikate löschen - Monatsweise 
Phelan XLPH

Antworten: 3
Aufrufe: 124

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 17:42   Titel: AW: Duplikate löschen - Monatsweise Version: Office 2003
eine weitere Variante:

Sub Konsolidieren()

Dim wsQ As Worksheet
Dim sID As String, dic As Object
Dim i As Long, n As Long, k As Integer
Dim arQ, arZ

Set wsQ = Worksheets("Tabelle1")
Set dic = CreateObject("scripting.dictionary")

arQ = wsQ.Range("A1").CurrentRegion
ReDim arZ(1 To UBound(arQ), 1 To UBound(arQ, 2) + 1)

For i = 1 To UBound(arQ)
sID = arQ(i, 1) & "#" & Mid$(arQ(i, 2), 4)
If dic.Exists(sID) Then
arZ(dic(sID), 3) = arZ(dic(sID), 3) + 1
Else
n = n + 1
dic(sID) = n
For k = 1 To UBound(arQ, 2)
arZ(n, k) = arQ(i, k)
Next
If i = 1 Then arZ(n, 3) = "Anzahl" Else arZ ...
  Thema: Makro code verkürzen 
Phelan XLPH

Antworten: 11
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 16:57   Titel: AW: Makro code verkürzen Version: Office 2003
Sub y()
Range("J6:J10000").Formula = _
"=IF(OR(ISNUMBER(SEARCH(""14-13"",A6)),ISNUMBER(SEARCH(""12-12"",A6)),ISNUMBER(SEARCH(""13-12"",A6))," & _
"ISNUMBER(SEARCH(""12-11"",A6))ISNUMBER(SEARCH(""12-15"",A6)),ISNUMBER(SEARCH(""14-14"",A6))," & _
"ISNUMBER(SEARCH(""00-00-14"",A6)),ISNUMBER(SEARCH(""00-00-12"",A6)),ISNUMBER(SEARCH(""00-00-16"",A6))," & _
"ISNUMBER(SEARCH(""00-00-17"",A6)),ISNUMBER(SEARCH(""17-12"",A6)),ISNUMBER(SEARCH(""14-11"",A6)),&q ...
  Thema: Makro code verkürzen 
Phelan XLPH

Antworten: 11
Aufrufe: 169

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 16:53   Titel: AW: Makro code verkürzen Version: Office 2003
Sub XY()
Dim v As Variant
Dim sFormel As String
Dim i As Integer

v = Array("14-13", "12-12", "13-12", "12-11", "12-15", _
"14-14", "00-00-14", "00-00-12", "00-00-16", _
"00-00-17", "17-12", "14-11", "14-00", "14-11", _
"14-11", "40-20-40", "40-40-60", "40-50-60", _
"40-30-10", "40-30-30", "40-30-40", "40-30-60", _
"13-00", "12-00", "00-10-00", "14-18", "14-17", _
"15-12", "00-00-13", "00-00-11")

For i = LBound(v) To UBound(v)
sFormel = sFormel & ",ISNUMBER(SEARCH(""" & v(i&# ...
  Thema: Summieren verschiedener Anforderungen 
Phelan XLPH

Antworten: 4
Aufrufe: 432

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 16:21   Titel: AW: Summieren verschiedener Anforderungen Version: Office 2003
so?
  Thema: Code für mehrere Textboxen 
Phelan XLPH

Antworten: 16
Aufrufe: 676

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 15:31   Titel: AW: Code für mehrere Textboxen Version: Office 2007
...oder über den Namen der TextBoxen und deren Nummerierung
  Thema: Code für mehrere Textboxen 
Phelan XLPH

Antworten: 16
Aufrufe: 676

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 15:14   Titel: AW: Code für mehrere Textboxen Version: Office 2007
ja das geht
  Thema: Code für mehrere Textboxen 
Phelan XLPH

Antworten: 16
Aufrufe: 676

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 14:49   Titel: AW: Code für mehrere Textboxen Version: Office 2007
Des wegen musst du irgendwie eine Zugehörigkeit erstellen.

Markiere alle TextBoxen die zu einer Gruppe gehören (STRG+KLick) trag dann
im Eigenschaftenfenster (F4) unter [Tag] einen GruppenNamen ein, z.B. 'Gruppe0'.

Jetzt leiße sich das ganze einfach handhaben...
  Thema: Eure Verwendung von VBA Code per VBA schreiben? 
Phelan XLPH

Antworten: 11
Aufrufe: 261

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 14:43   Titel: AW: Eure Verwendung von VBA Code per VBA schreiben? Version: Office 2010
nur zum Ex- Import von Code da ich identischen Mappen / Code sowohl in xls als auch in xlsm habe.

...und das solltest du in ein Add-In packen.
  Thema: Code für mehrere Textboxen 
Phelan XLPH

Antworten: 16
Aufrufe: 676

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 14:35   Titel: AW: Code für mehrere Textboxen Version: Office 2007
Wie unterscheiden Sich die 50Textboxen von den restlichen?
Haben diese irgendwine Kennung (bzw. Präfix,Suffix) im Namen oder
einen Wert im .Tag?



statt TextBox1 folgendes txtMuster1

mit 'Muster' erzwinge ich eine zugehörigkeit.

Oder haben diese eine fortlaufende Nummer TextBox1....TextBox50?
  Thema: Eure Verwendung von VBA Code per VBA schreiben? 
Phelan XLPH

Antworten: 11
Aufrufe: 261

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 14:25   Titel: AW: Eure Verwendung von VBA Code per VBA schreiben? Version: Office 2010
Vielleicht um eine bestehende Datei von Makros zu befreien, ansonsten
gar nicht.

Ich fummel ja auch nicht an meiner DNA rum! Very Happy
  Thema: Performance beim Anfügen neuer Zeilen 
Phelan XLPH

Antworten: 21
Aufrufe: 433

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Sep 2012, 14:17   Titel: AW: Performance beim Anfügen neuer Zeilen Version: Office 2007
teste mal...

Sub UpdateTarget(Source As Workbook, s_wks As Worksheet)
' Note: Column A was inserted to temporarily manage the combination of F# and I#
' i.e., real content range starts with B:B up to AE:AE instead of A:A up to AD:AD
Dim i As Long
Dim LastRow As Long
Dim LastColumn As Integer
Dim Dateiname As String
Dim Dic As Object
Dim ar As Variant

Set Dic = CreateObject("scripting.dictionary")

' first, remove all pattern to read only pure values
With s_wks
'.Cells.ClearFormats

LastRow = s_wks.Cells(Rows.Count, 1).End(xlUp).Row
LastColumn = .Cells(2, .Columns.Count).End(xlToLeft).Column

ar = .Range(.Cells(1, 1), .Cells(LastRow, 2)).Value

For i = 4 To UBound(ar)
If Len(ar(i, 1) & ...
 
Seite 117 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 114, 115, 116, 117, 118, 119, 120 ... 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 Tricks