Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 342 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 339, 340, 341, 342, 343, 344, 345 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 14:53   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Change-Ereignis regiert nicht auf Formularsteuerelemnte.

Lad die Datei hoch...
  Thema: Zeilen mit durchgehenden Nullwert ausblenden 
Phelan XLPH

Antworten: 23
Aufrufe: 921

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 14:49   Titel: AW: Zeilen mit durchgehenden Nullwert ausblenden Version: Office 2003
lass das intergieren mal.

Füge beide Codes in ein StandardModul (zB Modul1).

Ich nehme an deine Pivot befindet sich im Tabellenblatt "TR_Pivot".

Jetzt ersetzt du im Code "Tabelle8" durch "Worksheets("TR_Pivot")".
Und da ich nicht weiss wie die Überschriften der Pivot lauten
musst du diese ebenfalls ersetzen. Zu testzwecken heißen
die bei mir "a,s,d,f,g". Vielleicht heißen die bei dir (Anzahl, Umsatz, Kosten, usw.)!

Wenn gar nix geht lad die "verfremdete" Datei hoch.
  Thema: Performancesteigerung und/oder Permutationen 
Phelan XLPH

Antworten: 3
Aufrufe: 202

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 14:33   Titel: AW: Performancesteigerung und/oder Permutationen Version: Office 2007
Hallo,

Sub Komb5ExtendedSpeed()

Dim i As Long, j As Long
Dim r As Long, x As Long
Dim m As Long, n As Long
Dim arr As Variant, q As Long
Dim arrOut() As Variant
Dim Dic As Object
Dim blnOK As Boolean
Dim klassen As Variant

On Error GoTo Fehler

Set Dic = CreateObject("Scripting.Dictionary")


klassen = Array(1, 1, 1, 1, 1, 1, 1) ' Klassen Anpassen ggf. erweitern


r = WorksheetFunction.Sum(klassen)
x = WorksheetFunction.Count(klassen)


ReDim arr(1 To x ^ r, 1 To r)


With Sheets("Tabelle6")
.UsedRange.Clear

For j = r To 1 Step -1
For i = 1 To x ^ r Step x ^ (r - j)
For q = i To i + x ^ (r - j) - 1
arr(q, j) = ((i - 1) / x ^ (r - j)) Mod x + 1
...
  Thema: Performancesteigerung und/oder Permutationen 
Phelan XLPH

Antworten: 3
Aufrufe: 202

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 13:59   Titel: AW: Performancesteigerung und/oder Permutationen Version: Office 2007
Also ich hab hier was von maiflower erweitert, aber das packt mein Speicher nicht.
Bis zu 7 elementen ist es noch möglich 8 nocht mehr geschweige denn 9.
  Thema: Kommentare setzen lassen 
Phelan XLPH

Antworten: 6
Aufrufe: 195

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 13:13   Titel: AW: Kommentare setzen lassen Version: Office 2010
Hallo,

kommt mir irgendwie bekannt vor. Wink

For i = 6 To sh.Cells(sh.Rows.Count, 6).End(xlUp).Row Step 6

Die Schleife macht 6-er Sprünge, Ich vermute mal dass Dez keine 6 Zeilen
vom Nov entfernt ist.

Sonst lad nochmal die Datei hoch.
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 13:03   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Verweis die Zelle (CC61) auf die verknüpfte Zelle und das Fäben könntest du über
die Bed. formatierung erreichen.
  Thema: Abbruch Copy/Pastespecial mit Fehlermeldung 
Phelan XLPH

Antworten: 11
Aufrufe: 1003

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:59   Titel: AW: Abbruch Copy/Pastespecial mit Fehlermeldung Version: Office 2010
Hallo,

vielleicht tuts das hier auch:
Sub Test()
Dim X As Integer
Dim N As Integer
Dim P As Integer
N = 20 '20 Spalten pro Loop
X = 9 'Erste Spalte des Kopiervorgangs

With Workbooks("test.xlsm").Sheets("3 Liquiditätsberechnung")
P = Int(Val(.Cells(2, 5).Value)) + 9
For i = 9 To P Step N
.Range(.Cells(2, i), .Cells(409, i + N)).Value = .Range("h2:h409").Value
Next
End With
End Sub
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:39   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
Nicht traurig sein ich komm gleich mit den Manolo Blahniks um die Ecke. Laughing

Du musst schon genauer werden:
Welcher Bereich soll überwacht werden,
mit welchen Kriterien vergleichen,
und wo soll be Übereinstimmung was geändert werden?
  Thema: Spaltenwerte umkehren 
Phelan XLPH

Antworten: 4
Aufrufe: 756

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:34   Titel: AW: Spaltenwerte umkehren Version: Office 2003
In eine Spalte daneben mit aufsteigenden zahlen füllen.
Den gesamten Bereich nach dieser Spalte absteigend sortieren.
Die Hilfsspalte wieder löschen.

Fertzig!
  Thema: Zeilen mit durchgehenden Nullwert ausblenden 
Phelan XLPH

Antworten: 23
Aufrufe: 921

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:30   Titel: AW: Zeilen mit durchgehenden Nullwert ausblenden Version: Office 2003
Hallo,

wieso nimmst du nicht mein Beispiel, hast du es getestet?
Hier nochmal die 2 Codes zum ein u. Ausblenden:

Sub PT_RowHide()
On Error GoTo Fehler
Application.ScreenUpdating = False
With Tabelle8.PivotTables(1) 'TabellenBlatt anpassen ******************
.CalculatedFields.Add "ph_RowHide", "=SUM(a,s,d,f,g )>0", True 'Überschriften (a,s,d,f,g ) anpassen *************
.PivotFields("ph_RowHide").Orientation = xlDataField

With .DataBodyRange
With .Columns(.Columns.Count)
On Error Resume Next
.ColumnDifferences(.Find(1)).EntireRow.Hidden = True
On Error GoTo 0
End With
End With

.CalculatedFields("ph_RowHide").Delete
End With
Fehler:
Application.ScreenUpdating = True
If Err Then MsgBox Err.Description, , "Fehler: " ...
  Thema: Automatische Sicherheitskopien 
Phelan XLPH

Antworten: 6
Aufrufe: 533

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:25   Titel: AW: Automatische Sicherheitskopien Version: Office 2003
@amicro

Bachup ...ist das der englische Begriff für "Land unter" Laughing
  Thema: Mehrfachverwendung von "Private Sub" 
Phelan XLPH

Antworten: 25
Aufrufe: 1798

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:23   Titel: AW: Mehrfachverwendung von "Private Sub" Version: Office 2003
einfach ausprobieren...VBA beißt nicht Very Happy
  Thema: Hilfe!! Probleme mit Worksheet_SelectionChange 
Phelan XLPH

Antworten: 8
Aufrufe: 297

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 12:18   Titel: AW: Hilfe!! Probleme mit Worksheet_SelectionChange Version: Office 2007
Hallo,

teste das mal:

Sub ph()
Dim dictKategorie As Object
Dim arKat As Variant
Dim arRows As Variant
Dim i As Long
Dim k As Long
Dim Meldung As String
Dim rngKat As Range
Dim rngF As Range


Set dictKategorie = CreateObject("Scripting.Dictionary")

With Tabelle1 'Anpassen ****************************

arKat = .Range("B7:B" & .Cells(.Rows.Count, 2).End(xlUp).Row)

For i = 1 To UBound(arKat)
If arKat(i, 1) <> "" Then _
dictKategorie(arKat(i, 1)) = _
dictKategorie(arKat(i, 1)) & ";" & i
Next

arKat = dictKategorie.Keys
For i = 0 To UBound(arKat)
arRows = Split(Mid(dictKategorie(arKat(i)), 2), " ...
  Thema: automatisch Min und Max Skalierung für Y-Achse festlegen 
Phelan XLPH

Antworten: 8
Aufrufe: 1703

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 11:05   Titel: AW: automatisch Min und Max Skalierung für Y-Achse festlegen Version: Office 2007
Bitte sehr Wink

Zum Einstieg: [url=http://www.fernuni-hagen.de/imperia/md/content/zmi_2010/b012.pdf]>>
  Thema: "Zwischenwerte" in Tabellenblatt schreiben 
Phelan XLPH

Antworten: 7
Aufrufe: 222

BeitragForum: Excel VBA (Makros)   Verfasst am: 30. Dez 2010, 10:31   Titel: AW: "Zwischenwerte" in Tabellenblatt schreiben Version: Office 2007
Das muss so gehen wie du gepostet hast.

Vielleicht ist dein FA LEER!

Für deinen Code nochmal aus:
With Sheets("Tabelle1")
.Cells(4, 5).Value = Textbox1.Value 'schreibt wert aus der Textbox in Tabellenblatt
.Cells(5, 5).Value = FA 'FA ins Tabellenblatt, funktioniert so nicht
MsgBox FA
End with
 
Seite 342 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 339, 340, 341, 342, 343, 344, 345 ... 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 Diagramme