Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 219 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 216, 217, 218, 219, 220, 221, 222 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Doppelte Einträge farbig markieren 
Phelan XLPH

Antworten: 98
Aufrufe: 117145

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 13:36   Titel: AW: Doppelte Einträge farbig markieren
Hallo Legende,

Sub xlph_Doppelte_Markieren()
Dim ar As Variant
Dim i As Long
Dim k As Integer
Dim D As Object
Dim sAdr As String
Dim rng As Range

'Kriterienbereich: Spalte A-C


On Error GoTo ENDE
Application.ScreenUpdating = False

Set D = CreateObject("Scripting.Dictionary")

Cells.Interior.ColorIndex = xlColorIndexNone

Set rng = Range("A1").CurrentRegion
ar = rng.Value

For i = 1 To UBound(ar)
D(ar(i, 1) & "_" & ar(i, 2) & "_" & ar(i, 3)) = _
D(ar(i, 1) & "_" & ar(i, 2) & "_" & ar(i, 3)) + 1
Next

For i = 1 To UBound(ar)
If D(ar(i, 1) & "_" & ar(i, 2) & "_" &a ...
  Thema: Need to Count values across 30 sheets, can anyone pls help? 
Phelan XLPH

Antworten: 7
Aufrufe: 226

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 00:19   Titel: AW: Need to Count values across 30 sheets, can anyone pls he Version: Office 2003
@Heinz

You must enter all sheets.
Try again: =Countif_Special(D4:E4;Hoja1!A:B;Hoja2!A:B;Hoja3!A:B)
  Thema: Zwei Filter nacheinander 
Phelan XLPH

Antworten: 2
Aufrufe: 358

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 19:40   Titel: AW: Zwei Filter nacheinander Version: Office 2003
Würde mich auch interessieren, wie ich mit dem Spezialfilter
nach leerzellen filtere?

ok, habs rausgefunden. Es langt ein "=".
  Thema: Need to Count values across 30 sheets, can anyone pls help? 
Phelan XLPH

Antworten: 7
Aufrufe: 226

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 19:29   Titel: AW: Need to Count values across 30 sheets, can anyone pls he Version: Office 2003
Or try it with this user defined Function:

Function CountIF_Special(SearchValues, ParamArray Source_Ranges())
Dim i As Long
Dim n As Long
Dim k As Integer
Dim r As Integer
Dim Daten As Variant

SearchValues = Split(Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(SearchValues)), ";"), ";")

ReDim SuchSpalten(UBound(SearchValues))

For i = 0 To UBound(SearchValues)
If SearchValues(i) <> "" Then
SearchValues(n) = SearchValues(i)
SuchSpalten(n) = i + 1
n = n + 1
End If
Next

ReDim Preserve SearchValues(n - 1)
ReDim Preserve SuchSpalten(n - 1)

n = 0

For r = 0 To UBound(Source_Ranges)

Daten = Inters ...
  Thema: Need to Count values across 30 sheets, can anyone pls help? 
Phelan XLPH

Antworten: 7
Aufrufe: 226

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 17:53   Titel: AW: Need to Count values across 30 sheets, can anyone pls he Version: Office 2003
Hallo Lea,

solve that Problem with the Pivottable.

There is a good Sample do download: [url=http://blog.contextures.com/archives/2009/08/24/create-a-pivot-table-from-multiple-sheets/]Pivot Table From Multiple Sheets
  Thema: Fragen zu ListBox & TextBox 
Phelan XLPH

Antworten: 12
Aufrufe: 371

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 16:38   Titel: AW: Fragen zu ListBox & TextBox Version: Office 2003
Option Explicit

Dim rngBereich As Range
Const cMaxZeile = 52

Private Sub cmdÄndern_Click()
With ListBox1
If .ListIndex > -1 Then
.List(.ListIndex) = TextBox1.Text
Call DatenSchreiben
End If
End With
End Sub

Private Sub cmdHinzufügen_Click()
If Trim(TextBox1.Text) = "" Then Exit Sub
With ListBox1
If .ListCount >= cMaxZeile - 11 Then Exit Sub
If .ListIndex > -1 Then
.AddItem TextBox1.Text, .ListIndex '.ListCount
Else
.AddItem TextBox1.Text
End If
Call DatenSchreiben
End With
End Sub

Private Sub cmdLöschen_Click()
With ListBox1
If .ListIndex > -1 Then
.RemoveItem .ListIndex
Call DatenSchreiben
End If
End With
End Sub

Private Sub ListBox1_Click()
With ListBox1
If .ListCount Then
Text ...
  Thema: Bei Eingabe von einem Wert in Zeile die Zeit+Datum angeben 
Phelan XLPH

Antworten: 2
Aufrufe: 114

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 09:14   Titel: AW: Bei Eingabe von einem Wert in Zeile die Zeit+Datum angeb Version: Office 2003
Hallo Itogh,
  Thema: Code zum Jahreswechsel automatisch verändern 
Phelan XLPH

Antworten: 9
Aufrufe: 328

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 08:47   Titel: AW: Code zum Jahreswechsel automatisch verändern Version: Office 2007
Hall bernd,

Private Sub Workbook_Open()
Dim sPfad As String
'den Pfad angeben
With Worksheets("Stammdaten").Range("D7")
sPfad = "G:\Daten (4)\Datenbanken (47)\" & Year(.Value) & "\Personal Stiftung.xlsb"
End With
Workbooks.Open(sPfad).Worksheets("Küche").Activate
End Sub

Wozu das Worksheets(1).Activate ?
Falls Worksheets("Küche") das Worksheets(1) ist, dann kannst du es auch weglassen.
  Thema: Combobox mit Definierten Name verknüpfen 
Phelan XLPH

Antworten: 8
Aufrufe: 369

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 08:01   Titel: AW: Combobox mit Definierten Name verknüpfen Version: Office 2003
Hallo freddy k.,

hab den Bereich dynamisch gehalten.
  Thema: Bei einem Wort in der Zelle soll ein Makro starten 
Phelan XLPH

Antworten: 2
Aufrufe: 148

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Dez 2011, 07:33   Titel: AW: Bei einem Wort in der Zelle soll ein Makro starten Version: Office 2003
Geh ins Codefenster der Tabelle "Pendenzenliste" und ersezte folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6:B" & Rows.Count)) Is Nothing Then
Intersect(Target, Range("B6:B" & Rows.Count)).Offset(, 1) = Empty
End If
End Sub
durch:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("B6:B40")) Is Nothing Then
Intersect(Target, Range("B6:B40")).Offset(, 1) = Empty
End If
If Not Intersect(Target, Range("O6:O40")) Is Nothing Then
For Each rng In Intersect(Target, Range("O6:O40"))
If LCase(rng) = "ja" Then
MsgBox "Makro ausführen", , rng.Address ...
  Thema: In Excel 2010, Zeilen einbelnden und ausblenden 
Phelan XLPH

Antworten: 1
Aufrufe: 374

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2011, 23:55   Titel: AW: In Excel 2010, Zeilen einbelnden und ausblenden Version: Office 2010
Hausaufgabe?
  Thema: Spaltenwerte vergleichen mit for Schleife? 
Phelan XLPH

Antworten: 2
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2011, 23:53   Titel: AW: Spaltenwerte vergleichen mit for Schleife? Version: Office 2010
Sub MaxWert_Zeitpunkt()
Dim i As Long
Dim ar As Variant
Dim dicVgl As Object

Set dicVgl = CreateObject("Scripting.Dictionary")

ar = Range("A1").CurrentRegion

For i = 1 To UBound(ar)
If ar(i, 3) > dicVgl(ar(i, 2)) Then
dicVgl(ar(i, 2)) = ar(i, 3)
End If
Next

Range("D1").Resize(dicVgl.Count) = WorksheetFunction.Transpose(dicVgl.keys)
Range("E1").Resize(dicVgl.Count) = WorksheetFunction.Transpose(dicVgl.items)

Range("D:D").NumberFormat = "hh:mm"
End Sub
  Thema: Zeile verschieben 
Phelan XLPH

Antworten: 6
Aufrufe: 121

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2011, 23:31   Titel: AW: Zeile verschieben Version: Office 2003
Dann versteh ich die Aufgabenstellung nicht. Confused
  Thema: Fragen zu ListBox & TextBox 
Phelan XLPH

Antworten: 12
Aufrufe: 371

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2011, 23:28   Titel: AW: Fragen zu ListBox & TextBox Version: Office 2003
Option Explicit

Dim rngBereich As Range

Private Sub cmdÄndern_Click()
With ListBox1
If .ListIndex > -1 Then
.List(.ListIndex) = TextBox1.Text
Call DatenSchreiben
End If
End With
End Sub

Private Sub cmdHinzufügen_Click()
If Trim(TextBox1.Text) = "" Then Exit Sub
With ListBox1
If .ListIndex > -1 Then
.AddItem TextBox1.Text, .ListIndex '.ListCount
Else
.AddItem TextBox1.Text
End If
Call DatenSchreiben
End With
End Sub

Private Sub cmdLöschen_Click()
With ListBox1
If .ListIndex > -1 Then
.RemoveItem .ListIndex
Call DatenSchreiben
End If
End With
End Sub

Private Sub ListBox1_Click()
With ListBox1
If .ListCount Then
TextBox1.Text = .Value
End If
End With
End Sub

Private Sub UserFor ...
  Thema: Maximalwert der ScrollBar von Zelle abhängig machen. 
Phelan XLPH

Antworten: 12
Aufrufe: 919

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Dez 2011, 21:43   Titel: AW: Maximalwert der ScrollBar von Zelle abhängig machen. Version: Office 2003
Ins codefenster der tabelle:
Private Sub ScrollBar1_Change()
Range("A2") = ScrollBar1.Value / 2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
ScrollBar1.Max = Val(Range("A1")) * 2
End If
End Sub

Max aus [A1] lesen
Wert in [A2] schreiben
 
Seite 219 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 216, 217, 218, 219, 220, 221, 222 ... 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 Editoren Forum