Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 251 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 248, 249, 250, 251, 252, 253, 254 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Grossen Variant in kleineren Variant einlesen 
Phelan XLPH

Antworten: 25
Aufrufe: 570

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Aug 2011, 09:06   Titel: AW: Grossen Variant in kleineren Variant einlesen Version: Office 2k (2000)
zB

Private Sub CommandButton1_Click()
Dim arAlle As Variant
Dim lngL As Long

arAlle = Tabelle3.Range("A1").CurrentRegion

For lngL = 1 To UBound(arAlle)
If arAlle(lngL, 1) < 5 Then
With ListBox1
.AddItem arAlle(lngL, 1)
.List(.ListCount - 1, 1) = arAlle(lngL, 2)
.List(.ListCount - 1, 2) = arAlle(lngL, 3)
End With
End If
Next
End Sub
  Thema: Bereich mit Wertigkeit vergleichen 
Phelan XLPH

Antworten: 6
Aufrufe: 311

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Aug 2011, 07:24   Titel: AW: Bereich mit Wertigkeit vergleichen Version: Office 2003
Ins codefenster der Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim retVal As Variant
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Rows.Count > 1 Then
Application.EnableEvents = False
Target = Empty
Application.EnableEvents = True
Exit Sub
End If
If Target.Value <> "x" Then
Application.EnableEvents = False
Target = Empty
Target.Select
Application.EnableEvents = True
Exit Sub
End If
With Me.UsedRange.SpecialCells(xlCellTypeLastCell)
If Evaluate("=SUMPRODUCT((A1:A" & .Row & "&B1:B" & .Row & "=""x" & Target.Offset(, 1).Value & """)*1)") > 1 Then
Target = Emp ...
  Thema: Kann ein Listview Objekt mit Daten aus einer Tabelle gefüllt 
Phelan XLPH

Antworten: 2
Aufrufe: 364

BeitragForum: Excel VBA (Makros)   Verfasst am: 05. Aug 2011, 06:04   Titel: AW: Kann ein Listview Objekt mit Daten aus einer Tabelle gef Version: Office 2007
Hallo, sieh dir folgendes an.
  Thema: Listbox Multiselect --- Schleifenprobleme 
Phelan XLPH

Antworten: 13
Aufrufe: 1312

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2011, 23:57   Titel: AW: Listbox Multiselect --- Schleifenprobleme Version: Office 2003
vtmp wird bereits in der Suchen-Prozedue gefüllt mit den
Zeilennummern bei Fund.

vtmp wurde lediglich global deklariert.

das dürfte langen:
Private Sub CommandButton3_Click() ' Löschen
Dim i As Long
Dim strDel As String

With ListBox1
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
.RemoveItem i
'Worksheets("Daten").Rows(vtmp(i + 1)).Delete
Worksheets("Daten").Rows(vtmp(i + 1)).Interior.ColorIndex = 6
End If
Next
End With

End Sub
  Thema: Listbox Multiselect --- Schleifenprobleme 
Phelan XLPH

Antworten: 13
Aufrufe: 1312

BeitragForum: Excel VBA (Makros)   Verfasst am: 31. Jul 2011, 23:20   Titel: AW: Listbox Multiselect --- Schleifenprobleme Version: Office 2003
oder so!
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 22:05   Titel: AW: Summenbildung über mehrere Ebenen Version: Office 2007
Ich weiß nicht ob es noch mehrere Ebenen gibt deshalb
nehme ich diese Lösung.

Sub test()
Dim ar As Range
Dim i As Long

On Error GoTo ENDE

With Tabelle2
For i = 1 To WorksheetFunction.Max(.Columns(1))
For Each ar In .Columns(5).SpecialCells(xlCellTypeBlanks).Areas
With ar.Cells(ar.Rows.Count)
.Formula = "=subtotal(9," & Range(.Offset(1), .Offset(1).End(xlDown)).Address & ")"
End With
Next
Next
End With

ENDE:
On Error GoTo 0

End Sub
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 21:45   Titel: AW: Summenbildung über mehrere Ebenen Version: Office 2007
erst meckern und dann doch die Lösung liefern Laughing .

Teilergebnis() -> das war die zündende Idee.
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 20:53   Titel: AW: Summenbildung über mehrere Ebenen Version: Office 2007
Wird ein Bericht!

die Formel passt nicht, so einfach ist das nicht.
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 20:21   Titel: AW: Summenbildung über mehrere Ebenen Version: Office 2007
Niemand ne Idee?
  Thema: Code ausblenden 
Phelan XLPH

Antworten: 12
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 09:05   Titel: AW: Code ausblenden Version: Office 2010
Hallo,

sieh dir folgendes Bild an.
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 08:34   Titel: AW: Summenbildung über mehrere Ebenen Version: Office 2007
Hallo Thomas,

in den Code-tags war es auch nicht besser.

Hier mal die Datei, wie ich mir das vorstelle.
  Thema: Summenbildung über mehrere Ebenen 
Phelan XLPH

Antworten: 11
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Jul 2011, 01:29   Titel: Summenbildung über mehrere Ebenen Version: Office 2007
Hallo,

wie bilde ich die Summen oberhalb der jeweiligen Ebene.
Es können auch mehr als 2 Ebenen sein.

Eine Lösung durch Eintragung per Formel wäre mir am liebsten.

Bin den ganzen abend dran und komm auf keinen grünen Zweig Confused .

Ebene KNZ X Y Betrag
1 3
2 3. 1
3. 1. 10 a b 12
3. 1. 20 13
3. 1. 30 14
3. 1. 40 15
3. 1. 50 16
3. 1. 60 17
3. 1. 70 18
3. 1. 80 19
3. 1. 90 20
3. 1. 100 21
3. 1. 110 22
3. 1. 120 23
3. 1. 130 24
3. 1. 140 25
3. 1. 150 26
3. 1. 160 27
3. 1. 170 28
3. 1. 180 29
3. 1. 190 30
3. 1. 200 31
2 3. 2.
3. 2. 10 90
3. 2. 20 10
3. 2. 30 80
3. 2. 40 10
3. 2. 50 40
3. 2. 60 90
3. 2. 70 100
3. 2. 80 50
3. 2. 90 40
3. 2. 100 60
3. 2. 110 60
3. 2. 120 70
3. 2. 130 50
3. 2. 140 90
3. 2. 150 70
3. 2. 160 20
1 4
2 4. 1
4. 1. 10 20
4. 1. 20 20
4. 1. 30 20
4. 1. 40 20
4. 1. 50 20
4. 1. ...
  Thema: maximale Upload Quota Grenze von 20 MB erreicht 
Phelan XLPH

Antworten: 3
Aufrufe: 664

BeitragForum: Fragen & Anregungen zum Office Forum   Verfasst am: 28. Jul 2011, 23:47   Titel: AW: Was zum Geier ist das? Version: Office 2007
THX
  Thema: maximale Upload Quota Grenze von 20 MB erreicht 
Phelan XLPH

Antworten: 3
Aufrufe: 664

BeitragForum: Fragen & Anregungen zum Office Forum   Verfasst am: 28. Jul 2011, 23:31   Titel: maximale Upload Quota Grenze von 20 MB erreicht Version: Office 2007
Du hast deine maximale Upload Quota Grenze von 20 MB erreicht

Ich kann nix mehr hochladen, und nun?
  Thema: Matrix aus einer Zeilenbasierten Tabelle erzeugen 
Phelan XLPH

Antworten: 6
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Jul 2011, 23:26   Titel: AW: Matrix aus einer Zeilenbasierten Tabelle erzeugen Version: Office 2003
Hallo,

schau es dir an.

Sub PH()
Dim arLOrtName As Variant
Dim arLOrtNr As Variant
Dim arTmp As Variant
Dim arOut As Variant
Dim i As Long
Dim k As Integer

Dim Matrix As Object

arLOrtName = Array("RNZ_Werk", "RNZ", "RZW", "RGUN", "RSE", "TLN", "TH_Werk", "TH_Hf", "TBF", "TN", "TO", "TML", "TOE", "TWG", "TH_Hr", "TWR", "TEU")
arLOrtNr = Array(40, 41, 42, 43, 44, 48, 73, 75, 79, 80, 81, 82, 83, 84, 85, 86, "004E")

Set Matrix = CreateObject("Scripting.Dictionary")

arTmp = Tabelle2.Range("A1").CurrentRegion
For i = 1 To UBound(arTmp)
If IsNumeric(arTmp(i, 1)) Then
Matrix(arTmp(i, 1) & "|" & ...
 
Seite 251 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 248, 249, 250, 251, 252, 253, 254 ... 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