|
Excel : Pivot Tabellen und vb
Axel.Strasser am 16.07.2010 um 10:58 Uhr (0)
Bei mir laufen beide problemlosich habe das Ganze inzwischen anders gelöst:Code: Dim pvItem As PivotItem With Sheets(BlattNameAbrechnung).PivotTables("Abrechnung").PivotFields("Department") .ClearAllFilters For Each pvItem In .PivotItems Select Case pvItem.Name Case "Abteil ABC" pvItem.Visible = False Case Else do nothing End Select Next End WithDamit geht es, ich habe inzwischen im Internet noch gefunden, dass vba und Pivot Tabellen manchmal etwas ungewöhnlic ...
|
| In das Form Excel wechseln |
|
Excel : Zählen wenn in einer Woche
Axel.Strasser am 16.07.2010 um 12:57 Uhr (0)
Deshalb wäre es besser gewesen einen neuen Thread aufzumachen als sich an einen 3 jährigen Thread zu hängen (was aber zumindest zeigt, dass Du die SuFu verwendest hast Also hier mal ein Lösungsansatz über ein Makro und eine Pivot TabelleAxel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de[Diese Nachricht wurde von Axel.Strasser am 16. Jul. 2010 editiert.]
|
| In das Form Excel wechseln |
|
Excel : Probleme beim Drucken
Axel.Strasser am 20.07.2010 um 11:47 Uhr (0)
Ich habe ein ganz seltsames Phänomen beim Drucken:es soll eine Pivot Tabelle gedruckt werden A4 Querformat, normale Seitenränder, Textgrösse: Arial 9, kein Druckbereich definiert.In der Seitenansicht sind das dann 22 Seiten. (2 Seiten breit / 11 hoch).Jetzt stelle ich um auf anpassen 1 Seite breit dann werden da 56252 Seiten daraus .Hat da jemand eine Erklärung ? ich versuche jetzt schon den ganzen Vormittag mit den verschiedenen Parametern, bekomme es aber einfach nicht hin .Excel 2007Axel -------------- ...
|
| In das Form Excel wechseln |
|
Excel : Probleme beim Drucken
Axel.Strasser am 20.07.2010 um 17:07 Uhr (0)
Es wird nach jeder Zeile ein Seitenumbruch gemacht. Ich habe das Gefühl es liegt am Druckertreiber (weiss jetzt auch nicht genau warum), habe inzwischen den Drucker geändert und dann ging es . Wenn es ansonsten an der Formatierung der Zeile 33724 liegen sollte, warum mascht sich das erst beim Ausdruck auf eine Seite breit bemerkbar ? Wenn ich umstelle, geht die Skalierung auf 10 %. Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de[Diese Nachricht wurde von Axel.Strasser a ...
|
| In das Form Excel wechseln |
|
Excel : Vergleich mit vb
Axel.Strasser am 11.08.2010 um 17:04 Uhr (0)
Irgendwie stehe ich auf dem Schlauch. Ich habe folgenden Code:Code:If Sheets(BlattNameAbrechnung).Cells(j, 14).Value Sheets(BlattNameDefaultFlex).Cells(8, 2).Value Then MsgBox IsNumeric(Sheets(BlattNameAbrechnung).Cells(j, 14).Value) & " " & IsNumeric(Sheets(BlattNameDefaultFlex).Cells(2, 8).Value) & vbCrLf & _Sheets(BlattNameAbrechnung).Cells(j, 14).Value & " " & Sheets(BlattNameDefaultFlex).Cells(2, 8).Value ExitTotalSum = TrueEnd IfBeide Vergleichswerte sind numerisch (Wahr) und der erste Wert ist ...
|
| In das Form Excel wechseln |
|
Excel : Vergleich mit vb
Axel.Strasser am 11.08.2010 um 17:22 Uhr (0)
Danke das war es, also doch das Problem 30cm vor dem Bildschirm Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Varialbe Wert bei Start von Excel zuweisen
Axel.Strasser am 15.10.2010 um 09:12 Uhr (0)
Bei diesen Angaben, bleibt sogar meine Glaskugel blind.Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de"Zwei Dinge sind unendlich: das Universum und die menschliche Dummheit. Aber beim Universum bin ich mir noch nicht ganz sicher."Albert Einstein
|
| In das Form Excel wechseln |
|
Excel : bedingte Formatierung über VBA ändern
Axel.Strasser am 15.10.2010 um 12:45 Uhr (0)
Ja, das einfachste ist das ganze immer über ein aufgezeichnetes Makro zu testen. Nachdem Du nicht sagst, was Du machen willst, würde eigentlich auch nur die Antwort "Ja" ausreichenz.B.Code:Sub Makro1() Range("B3").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _ Formula1:="=7" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16752384 .TintAndShade = 0 End With Wi ...
|
| In das Form Excel wechseln |
|
Excel : Letzte Zeile in Tabelle ermitteln und in Tabelle ausgeben
Axel.Strasser am 07.12.2010 um 12:03 Uhr (0)
Ich nehme mala an mit Register meinst Du Blätter.Mal als Ansatz: das folgende Makro fügt ein weiteres Tabellenblatt "Inhalt" hinzu und listet alle enthaltenen Blätter dieser Datei aufCode:Sub inhalt()Sheets(1).SelectSheets.AddSheets(1).Name = "Inhalt"z = 1For Each w In WorksheetsIf w.Index 1 Then Range("a" & z - 1).Value = w.Namez = z + 1Next wEnd SubAxel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Laufzeitfehler 1004
Axel.Strasser am 23.06.2011 um 12:50 Uhr (0)
Nachdem Du, soweit ich es interpretiere, das Programm ausserhalb von Excel ausführst, hast Du das Excel in dem Script initialisiert? Was passiert wenn Du mal die Reihenfolge der Items änderst (also nicht Background als letztes) ?Axel ------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Zeilen löschen über VBA code
Axel.Strasser am 08.02.2012 um 14:51 Uhr (0)
Ersetze in der ZeileCode:For Zaehler = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1Zaehler durch ZeileAxel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Zeilen löschen über VBA code
Axel.Strasser am 08.02.2012 um 14:51 Uhr (0)
Ruebe war mal wieder schneller ------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
|
Excel : Zeilen löschen über VBA code
Axel.Strasser am 08.02.2012 um 16:11 Uhr (0)
Als erstes solltest Du mal dem Knopf das richtige Makro zuweisen und weiter ist Deine Fragestellung falsch, die sollte wahrscheinlich heissen wenn im Feld in Spalte A ein Fragezeichen enthalten ist Axel------------------Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de
|
| In das Form Excel wechseln |
