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

Antworten: 41
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Sep 2012, 16:31   Titel: AW: Wie bekomme ich meinen Makro schneller Version: Office 2007
Lösch die Summen- und Summeprodukt-Formeln und nimm den Code hier:

Sub DatenHolen()
Dim sID As String
Dim i As Long
Dim n As Long
Dim k As Integer
Dim dic As Object
Dim rngZiel As Range
Dim ar As Variant
Dim arD As Variant
Dim arS_4M As Variant
Dim s4M As String
Dim sAnlage As String
Dim arSumme As Variant

Set dic = CreateObject("scripting.dictionary")

With ThisWorkbook
ar = .Worksheets("Tabelle1").Range("A11").CurrentRegion.Columns("A:D").Value
With .Worksheets("Tabelle2")
Set rngZiel = Intersect(.Columns("Q:AB"), .UsedRange, .Range(.Rows(6), .Rows(.Rows.Count)))
End With
End With

For i = 1 To UBound(ar)
sID = Empty
For k = 1 To UBound(ar, 2)
Sel ...
  Thema: Aufgabenintervall 
Phelan XLPH

Antworten: 11
Aufrufe: 349

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Sep 2012, 15:55   Titel: AW: Aufgabenintervall Version: Office XP (2002)
so vielleicht?
  Thema: Wie bekomme ich meinen Makro schneller 
Phelan XLPH

Antworten: 41
Aufrufe: 1085

BeitragForum: Excel VBA (Makros)   Verfasst am: 06. Sep 2012, 14:28   Titel: AW: Wie bekomme ich meinen Makro schneller Version: Office 2007
s0?
  Thema: Text 20170531 in Datum 31.05.2017 wandeln 
Phelan XLPH

Antworten: 15
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 19:01   Titel: AW: Text 20170531 in Datum 31.05.2017 wandeln Version: Office 2007
Genau, und das ist natürlich deine! Rolling Eyes
  Thema: Text 20170531 in Datum 31.05.2017 wandeln 
Phelan XLPH

Antworten: 15
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 18:55   Titel: AW: Text 20170531 in Datum 31.05.2017 wandeln Version: Office 2007
...und jetzt?
  Thema: Text 20170531 in Datum 31.05.2017 wandeln 
Phelan XLPH

Antworten: 15
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 18:26   Titel: AW: Text 20170531 in Datum 31.05.2017 wandeln Version: Office 2007
...mit eingebautem Turbo Laughing

Sub datum_test_Speed()
Dim rngA As Range, a
Dim i As Long, k As Integer

For Each rngA In Intersect(ActiveSheet.UsedRange, ActiveSheet.Range("S:U,X:X")).Areas
a = rngA
For i = 1 To UBound(a)
For k = 1 To UBound(a, 2)
If a(i, k) Like "########" Then a(i, k) = CDate(Format(CLng(a(i, k)), "0000-00-00"))
Next
Next
rngA = a
rngA.NumberFormat = "m/d/yyyy"
Next
End Sub
  Thema: Text 20170531 in Datum 31.05.2017 wandeln 
Phelan XLPH

Antworten: 15
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 17:44   Titel: AW: Text 20170531 in Datum 31.05.2017 wandeln Version: Office 2007
Einer geht noch...

Sub Test()
Dim rngA As Range
For Each rngA In Intersect(ActiveSheet.UsedRange, Range("S:U,X:X")).Areas
With rngA
.Value = Evaluate("=IF(" & _
.Address(0, 0) & "="""","""",DATE(LEFT(" & _
.Address(0, 0) & ",4),MID(" & _
.Address(0, 0) & ",5,2),RIGHT(" & _
.Address(0, 0) & ",2)))")
.NumberFormat = "m/d/yyyy"
End With
Next
End Sub
  Thema: VBA Makro für "Summenprodukt" mit vielen Variablen 
Phelan XLPH

Antworten: 6
Aufrufe: 544

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 16:58   Titel: AW: VBA Makro für "Summenprodukt" mit vielen Varia Version: Office 2010
Sub Konsolidieren()

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

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

iSumCol = 2

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

For i = 1 To UBound(arQ)
sID = Empty
For k = 1 To UBound(arQ, 2)
If k <> iSumCol Then sID = sID & "#" & arQ(i, k)
Next
If dic.Exists(sID) Then
arZ(dic(sID), iSumCol) = arZ(dic(sID), iSumCol) + arQ(i, iSumCol)
Else
n = n + 1
dic& ...
  Thema: VBA Makro für "Summenprodukt" mit vielen Variablen 
Phelan XLPH

Antworten: 6
Aufrufe: 544

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 13:59   Titel: AW: VBA Makro für "Summenprodukt" mit vielen Varia Version: Office 2010
Ich schrieb:
Ab XL2007 hats die SummeWenns-Formel.
  Thema: Makro Zeile nach oben bzw. nach unten springen 
Phelan XLPH

Antworten: 5
Aufrufe: 249

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 13:52   Titel: AW: Makro Zeile nach oben bzw. nach unten springen Version: Office 2007
passt schon wieder nicht:
Bsp in A70 steht Material dann in A72 springen und den Wert A70 übernehmen bis wieder das Wort Material erscheint usw.

Poste etwas von der tabelle.
  Thema: Kommentar dynamisch erstellen 
Phelan XLPH

Antworten: 6
Aufrufe: 299

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 13:45   Titel: AW: Kommentar dynamisch erstellen Version: Office 2010
nein das geht nicht, aber du kannst doch mit den Pfeiltasten schneller navigieren
als mit der Maus.
  Thema: Makro Zeile nach oben bzw. nach unten springen 
Phelan XLPH

Antworten: 5
Aufrufe: 249

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 13:36   Titel: AW: Makro Zeile nach oben bzw. nach unten springen Version: Office 2007
Von der Zelle aus, in der Material steht soll dann 5 Zeilen nach unten Gesprungen...sind es nicht 6?
  Thema: Füllstandsregelung 
Phelan XLPH

Antworten: 21
Aufrufe: 1785

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 13:26   Titel: AW: Füllstandsregelung Version: Office XP (2002)
>> 'Simulation3'
  Thema: Combobox_Change - Frage 
Phelan XLPH

Antworten: 6
Aufrufe: 146

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 12:47   Titel: AW: Combobox_Change - Frage Version: Office 2010
...und wo steckt der Code? Bitte nicht in Modul1 oder so?

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Ammoniak (kg/h)"
Range("E5").Value = "Masse in kg/h:"
With Range("B3,E3,B6").Interior
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
End With
Case Else
Range("E5").Value = "Volumen in m³/h:"
With Range("B3,E3,B6").Interior
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981688894314
End With
End Select
End Sub
  Thema: VBA-Code zu lang? Optimierung möglich? 
Phelan XLPH

Antworten: 18
Aufrufe: 592

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Sep 2012, 12:37   Titel: AW: VBA-Code zu lang? Optimierung möglich? Version: Office 2010
Nimm Nics Code, das langt.

Sobald sich was ändert willst du die ganze Tabelle verteilt kopieren.
Da entstehen aber jede Menge Duplikate!
 
Seite 120 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 117, 118, 119, 120, 121, 122, 123 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA