VBA FullSeriesCollection?

Hallo,

ich benötige eure Hilfe und zwar möchte ich alle Datenreihen auswählen beginnend mit der fünften.

ActiveChart.FullSeriesCollection(5).Select

Das bedeutet, dass ich quasi alle Datenreihen von 5 bis unendlich auswählen möchte, und sollte das nicht funktionieren, 5 bis 99.

1 Antwort

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

14.12.2017, 17:14

Habe gerade kein Excel zur Hand. Schau einmal, ob es nicht eine Counteigentschaft gibt. Zum Beispiel

ActiveChart.FullSeriesCollection.Count  ' oder 
ActiveChart.FullSeriesCollection.Items.Count

Dann den Count-1, wenn die Indizierung bei 0 beginnt.

Woher ich das weiß:Berufserfahrung – Programmierer

Ähnliche Beiträge

Mailversand über Excel - Bestimmte Zeilen/Bereiche durch VBA?

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

If Range("C10").Value = "Kaffee-Date" Then

ActiveSheet.Range("B12:D21").Select

End If

If Range("C10").Value = "Erstes-Interview" Then

ActiveSheet.Range("B23:D23,B26:D33").Select

End If

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Item.To = "xxx"

'.Item.cc =

'.Item.bcc =

.Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

.Item.Send

End With

End Sub

...zum Beitrag

Makro beim Kopieren anpassen?

Guten Morgen

Ich habe eine Arbeitsmappe, in welcher ich monatlich ein neues Arbeitsblatt einfüge. Dies mittels Kopieren. Nun habe ich einen VBA, welcher fürs 1. Blatt korrekt funktioniert, aber beim Neuen infolge anderem Registername (?) nicht funktionier.

Was muss ich ändern? Ganz grossen Dank für die Hilfe. Nachstehend das Makro.

    Range("A2:E119").Select
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("A3:A119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("B3:B119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("07.21").Sort
        .SetRange Range("A2:e119")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

...zum Beitrag

JavaScript - <select> andere <option> ausgrauen?

Hallo zusammen,

brauche nochmal einen Denkanstoß :)

Ich habe zwei Mal <select></select>, die sozusagen in Reihe funktionieren sollen. Wenn ich jetzt beim ersten select eine Option auswähle, soll die eine option bei der zweiten select disable=disabled werden.

Zur Vorstellung:

<select>
<option value="nike">Nike</option>
<option value="reebok">Reebok</option>
</select>

<select>
<option value="sneaker">Sneaker</option>
<option value="fußballschuhe">Fußballschuhe</option>
</select>

-> bei dem Beispiel soll z.B. bei der Auswahl "Nike" im ersten, beim zweiten beide optionen angezeigt werden. Wähle ich hingegen "Reebok" aus, soll im zweiten Select nur die Auswahl "Sneaker" gemacht werden können, also "Fußballschuhe" ausgeschaltet.

Wie gehe ich da vor? Mit den Ansätzen aus dem Internet komme ich noch nicht weiter, dafür ist mein Know-How nicht groß genug. :)

Vielen Dank!
Gruß

...zum Beitrag

Detroit become Human läd unendlich lange?

Hallo, Ich habe mir Detroit become human für Steam auf dem Pc gekauft, es ist installiert und ich konnte auch schon auswählen welche Sprache usw., aber ich bin noch nicht ins Spiel gekommen, denn immer wenn ich auf neues Spiel drücke, dann lädt es immer bis 99% und dann lädt es ewig, Ich habe es jetzt schon seit ca 13 bei 99% am laufen und es hört nicht auf.

...zum Beitrag

Excel VBA - Zelle auswählen, dann F2

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

...zum Beitrag

Wie kann man in Excel Preise nach Größe sortieren?

Hallo liebe Helferinnen

Ich möchte eine Spalte mit Preisen so sortieren, dass es von teuer nach günstig geht. Mit der Option Sortieren von Z nach A funktioniert das leider nicht.

Kann mir da jemand eine einfache, aber effektive Lösung zeigen, um von Bild 1 direkt auf Bild 3 zu kommen?

Danke und liebe Grüße

Nachtrag:

In der kleinen Beispieltabelle mit den 10 Zeilen hat es hervorragend funktioniert, aber in der großen Tabelle mit tausenden Zeilen und 15 Spalten klappt es nicht.

Woran könnte es liegen? Also ich bin folgendermaßen vorgegangen:

1- Ursprungsdatei ist eine Textdatei.

2- Dieser habe ich in Excel geöffnet und die Spalte Preise als Text formatiert, damit es nicht als Datum umgewandelt wird..

3-Habe dann alle Punkte mit Kommas ersetzt

4-Sortiert von Z nach A, aber leider sortiert es nach der Zahl z.b. 99->8,5->77->6,31 und nicht 99->77->8,5->6,31 und nicht von der größten zur kleinsten Zahl

Was mache ich falsch? .(

...zum Beitrag

Alle Zeilen einer Tabelle in VBA dynamisch auswählen?

Hallo zusammen,

ich suche nach einer Zeile Code, mit der ich dynamisch die gesamte Tabelle auswählen kann.

Bislang habe ich verwendet:

Range("A1:U76").Select

Nun kann die Tabelle aber auch mehr oder weniger als 76 Zeilen haben (wenn sich die monatlichen Werte ändern).

Daher hatte ich an folgendes gedacht:

Range("A1:U" & ???).Select

(Zum inhaltlichen Verständnis: Danach werden Teilergebnisse hinzugefügt, und damit das funktioniert, ist die Tabelle "nicht intelligent/formatiert", also kein Listobject. Dafür habe ich allerdings schon funktionierenden Code.)

Die Frage ist jetzt, was ist ???.

Meine bisherigen Experimente waren leider nicht erfolgreich, deswegen frage ich nach einer Universallösung nach. Gerne neu aufschreiben.

Falls dies noch wichtig ist: Aufgrund der Datenlage sind nur die Spalten A-E vollständig mit Inhalten gefüllt, die weiteren Zellen weisen aufgrund der Datenlage Leerzellen ("null") auf.

Danke schon mal im Voraus.

...zum Beitrag

VBA zeilen kopieren mit relativem Zellbezug

Hallo, ich habe in mein Excel Dokument einen Button eingebaut, den ich mit einem Makro verbinden möchte, der eine neue Zeile einfügt und eine darüberliegende vorhandene Zeile Kopiert bzw. nach unten zieht, um in dieser neue Werte eintragen zu können. Funktioniert soweit auch ....

ABER natürlich verschieben sich die Bezüge durch das einfügen neuer Zeilen und die Makros, welche sich auf Zeilen unter dem ersten Makro beziehen, funktionieren nicht mehr an gewünschter Stelle...

In Visual Basic habe ich versucht die "Range" Bezüge zu ändern, habe aber nur den ansatz für einzelne zellen gefunden z.b. "ActiveCell.Offset(1,0).Range("A1").Select"

Auf dem Bild soll jeweils das blaue kreuzchen eine neue Zeile einfügen, siehe Zeile Opex. Folgendes ist mein VB Quelltext bei dem sich immer alles verschiebt: Sub add_cost_netrent() ' ' dada Makro '

' Rows("9:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("D8:H8").Select Selection.Copy Range("D9").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 Range("U8:Y8").Select Application.CutCopyMode = False Selection.Copy Range("U9").Select ActiveSheet.Paste End Sub

...zum Beitrag

Wie oft kommt ein Wort in einer Excel-Spalte vor?

Guten Abend

Gibt es eine kurze und effektive Formel für folgendes Vorhaben?

Z.B.

In Spalte A sind verschiedene Texte enthalten.

In Spalte B steht das Wort, das ich suche; und zwar "Boardmarker".

Und in Spalte C möchte ich eine Formel eingeben, das mir die Information herausgibt, wie oft dieses Wort in der gesamten Spalte vorkommt.

Das ist jetzt nur ein Beispiel. Ich möchte in verschiedenen Tabellen, nach der Häufigkeit verschiedener Wörter suchen.

Hat da jemand eine Idee?

P.S. Gibt es denn auch die Möglichkeit mittels einer Formel die am Häufigsten vorkommenden Wörter zu generieren?

...zum Beitrag

Mit Access und VBA einen formatierten Excel-Export durchführen?

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

...zum Beitrag

Excel Tabelle mit VBA fortlaufend befüllen?

Hallo,

ich habe eine ziemlich schwierige Aufgabe zu lösen, zumindest für mich als VBA Amateur und bräuchte deswegen eure Hilfe, da ich daran schon seit Tagen verzweifle.

Die Aufgabenstellung ist folgende:

Es soll durch ein Kontrollfenster (1. Bild links) möglich sein, einen neuen Datensatz anzulegen, der dann automatisch in der Tabelle (1. Bild rechts) davon erscheint. Die Erstellung der Datensätze soll fortlaufend geschehen, d.h. falls bereits ein Datensatz in Zeile 4 vorliegt, dass der neue Datensatz automatisch in Zeile 5 (usw.) angelegt wird. Zuletzt soll dann das Kontrollfenster geleert werden, sodass es theoretisch möglich wäre, direkt einen weiteren Datensatz anzulegen.

Weiterhin soll dieser neu angelegte Datensatz mit dem "DiagrammA" im Reiter "Diagramm" verknüpft werden (X/Y-Werte und Name in der Legende), sodass dort auch automatisch dieser Datensatz erscheint (2. & 3. Bild).

(Optional): Die Möglichkeit zum Entfernen eines Datensatzes.

Vielen Dank!

...zum Beitrag

Wie funktionieren infinitesimale Flächen?

Hier geht es um einen el. Fluss durch eine Fläche. Das heißt doch, man unterteilt die Fläche A in unendlich kleine unendlich viele Flächenelemente dA. Aber wenn die Länge des Vektors den Betrag der Fläche dA bedeutet, wie soll das gehen, wenn die Fläche von dA unendlich klein ist?

...zum Beitrag

Was muß man tun, damit Excel Umlaute immer nach den gleichen Regeln sortiert?

Siehe Hardcopy:

http://s14.directupload.net/file/d/2729/q7by9be7_jpg.htm

Wenn ich die Tabelle aufsteigend nach Spalte A sortiere steht das Ö vor dem S, was für mich bedeutet das S größer als Ö ist.
Wenn ich aber Excel VBA die beiden Zellinhalte vergleiche ist nun aber Ö größer als S ???

Damit meine Programme funktionieren sollte der Vergleich schon immer das gleiche Ergebnis zurückbringen. Was kann man tun?

...zum Beitrag

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen