Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 102 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 99, 100, 101, 102, 103, 104, 105 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Suchfunktion per Userform 
Phelan XLPH

Antworten: 8
Aufrufe: 261

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Okt 2012, 00:18   Titel: AW: Suchfunktion per Userform Version: Office 2007
schau mal EDIT:

...odre in Abhängigkeit....
  Thema: Zahlen in einer Listbox rechtbündig 
Phelan XLPH

Antworten: 11
Aufrufe: 190

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Okt 2012, 23:48   Titel: AW: Zahlen in einer Listbox rechtbündig Version: Office 2010
Die 'korrekte' Sortierung von Zahlen in einer Listview lässt zu Wünschen übrig.
  Thema: VERWEIS Problem in VBA 
Phelan XLPH

Antworten: 2
Aufrufe: 128

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Okt 2012, 23:30   Titel: AW: VERWEIS Problem in VBA Version: Office 2010
... Wink
  Thema: Zeitabhängige Makros 
Phelan XLPH

Antworten: 8
Aufrufe: 191

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Okt 2012, 01:04   Titel: AW: Zeitabhängige Makros Version: Office 2010
Hallo,

das kommt ins codefenster der tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M2:M10000")) Is Nothing Then
'Dein Code
MsgBox "Eingabe erfolgt!"
End If
End Sub
  Thema: Code zu langsam 
Phelan XLPH

Antworten: 11
Aufrufe: 315

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Okt 2012, 00:57   Titel: AW: Code zu langsam Version: Office 2010
...geht doch. Wink
  Thema: VBA Bereich einfärben 
Phelan XLPH

Antworten: 7
Aufrufe: 239

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Okt 2012, 00:20   Titel: AW: VBA Bereich einfärben Version: Office 2007
Hallo,

eine Lösung mit Bedingter Formatierung.
  Thema: Viele Variablen und Select Case Anweisung: code zu lang 
Phelan XLPH

Antworten: 11
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Okt 2012, 00:10   Titel: AW: Viele Variablen und Select Case Anweisung: code zu lang Version: Office 2007
Hallo,

um den Speed vom Dictionary-Object zu nutzen
setze Arrays ein:

Sub SummeWenn_xlph()
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

Set wsQ = Worksheets("Tabelle1")
Set wsZ = Worksheets.Add

Set dic = CreateObject("scripting.dictionary")

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

For i = 1 To UBound(arQ)
sID = arQ(i, 1) & "#" & arQ(i, 3) & "#" & arQ(i, 5)
If dic.Exists(sID) Then
arZ(dic(sID), 2) = arZ(dic(sID), 2) + arQ(i, 4)
Else
n = n + 1
arZ(n, 1) = arQ(i, 1)
arZ(n, 2) = arQ(i, 2)
arZ( ...
  Thema: Round(...) funktioniert - Trunc(...) nicht 
Phelan XLPH

Antworten: 4
Aufrufe: 103

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Okt 2012, 09:22   Titel: AW: Round(...) funktioniert - Trunc(...) nicht Version: Office 2003
Hab Xl2010 und da gibts kein Trunc?

Dann machen wir uns halt eins:

Sub Test_Trunc()
wichtigerWert = Trunc(Workbooks(Filename).Sheets(inpSheet).Cells(i, inpWertSpaltennummer).Value, 1)
End SubFunction Trunc(Zahl, Optional AnzahlStellen = 0)
Dim sZ As String, h As Variant
sZ = CStr(Zahl)
h = Split(sZ, ",", 2)
Select Case True
Case sZ = "": Trunc = 0
Case UBound(h) > 0 And AnzahlStellen > 0
Trunc = CDbl(h(0) & "," & Mid(h(1), 1, AnzahlStellen))
Case Else: Trunc = CLng(h(0))
End Select
End Function
  Thema: Filterkriterien für Autofiltermakro per Checkbox aktivieren 
Phelan XLPH

Antworten: 2
Aufrufe: 193

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Okt 2012, 08:53   Titel: AW: Filterkriterien für Autofiltermakro per Checkbox aktivie Version: Office 2007
Wie ist die Tabelle aufgebaut? wo stehen Modellreihe und Variante?
  Thema: #Div/0 erkennen 
Phelan XLPH

Antworten: 10
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Okt 2012, 08:30   Titel: AW: #Div/0 erkennen Version: Office XP (2002)
z.B.: =WENN(ANZAHL2(A1:A3);MITTELWERT(A1:A3);"")
  Thema: Exceldatei anhand des Namens in mehrere Dateien splitten 
Phelan XLPH

Antworten: 17
Aufrufe: 686

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2012, 16:00   Titel: AW: Exceldatei anhand des Namens in mehrere Dateien splitten Version: Office 2007
...oder so:

Sub SeparierenInMappe()
Dim v, D As Object, wb As Workbook

Application.ScreenUpdating = False

Set D = CreateObject("scripting.dictionary")

With Tabelle1 'ggf. ANPASSEN !!!!
If .AutoFilterMode Then .AutoFilterMode = False
With .Range("A1").CurrentRegion
For Each v In .Columns(1).Offset(1).Value
If v <> "" Then D(v) = 0
Next
For Each v In D.Keys
Set wb = Workbooks.Add(xlWBATWorksheet)
.AutoFilter 1, v
.Copy wb.Worksheets(1).Cells(1)
wb.Worksheets(1).Name = v
wb.SaveAs .Parent.Parent.Path & "\" & v & ".xlsx", xlOpenXMLWorkbook
wb.Close False
Next
.AutoFilter
End With
End With
...
  Thema: #Div/0 erkennen 
Phelan XLPH

Antworten: 10
Aufrufe: 220

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2012, 15:24   Titel: AW: #Div/0 erkennen Version: Office XP (2002)
Entfernt alle Fehler:
Sub ErrEntf()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
End Sub
  Thema: Code verkürzen 
Phelan XLPH

Antworten: 10
Aufrufe: 121

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2012, 15:20   Titel: AW: Code verkürzen Version: Office 2010
Hier die Sparversion:

Dim ar As Variant, i As Integer

ar = [row(1:15)]

For i = 1 To 20
Me.Controls("LKWZCMR" & i).List = ar
Next
  Thema: VBA-Suchanweisung fertig - farbliche Hervorhebung möglich? 
Phelan XLPH

Antworten: 25
Aufrufe: 578

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2012, 12:45   Titel: AW: VBA-Suchanweisung fertig - farbliche Hervorhebung möglic Version: Office 2003
Und warum verwendest du nicht einfach Excel-Suche (Strg+F)?

Die ist einfach zu handhaben.[/img]
  Thema: Sheets erstellen 
Phelan XLPH

Antworten: 18
Aufrufe: 231

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Okt 2012, 01:30   Titel: AW: Sheets erstellen Version: Office 2010
...der Kollege hat es schon längst berichtigt, blinder Slowboarder...
 
Seite 102 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 99, 100, 101, 102, 103, 104, 105 ... 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