wie ich die Tore, Punkte & Spiele einer bzw. mehrerer Mannschaften summiere und in einer Tabelle mittels Formeln wie z.B. SVERWEIS(), SUMME() anzeige, ist mir klar.

Dazu muss allerdings das Spielplanmuster immer irgendwie gleich aussehen.

Wie allerdings bekomme die gleiche Logik in einem Spielplan zum funktionieren, der von mir vorher per Makro generiert wird und daher die Mannschaften auch immer an einer etwas anderen Stelle im Spielplan stehen können?

Zur Erklärung: Ich brauche diese Logik zur Generierung eines Spielplans für ein Kickerturnier, bei dem sich die Anzahl der Teilnehmer von Turnier zu Turnier unterscheiden kann.

Ich hoffe, ich habe mich klar und verständlich ausgedrückt.

MfG

Matthias Zurmühlen

Ich bin nun auch nicht gerade der Fachmann zum Thema Office 2010 oder Win7, aber ich würde entweder

1. anderen Browser probieren oder


2. Einstellungen vom IE (oder entsprechender Standard-Browser) mal anschauen oder


3. Systemsteuerung (Benutzerkonten?) von Windows 7 mal durchforsten.

Ich weiß, nicht sehr hilfreich, aber vielleicht war ja doch etwas dabei.

Gruß
Steffen Kuch

Zunächst, ich arbeite mit Excel 2000 (XP SP3, Office 2000 mit SP3).

Ich habe die Aufgabenstellung bekommen, Textbausteine aus einem Word-Dokument (Word-Dok. hat 336 Seiten und mehrere Hundert Textbausteine) in einem Excel-Dokument zugänglich zu machen.

Ich habe das Problem einigermaßen mit VBA in den Griff bekommen. Die Lösung ist die, dass ich den Text aus der Word-Datei als Word-Objekt in die Excel-Datei einfüge (grundsätzliche Formatierung muss erhalten bleiben). Allerdings möchte ich noch an dem Word-Objekt verschiedene Anpassungen (per VBA) vornehmen:

1. Linie des Objekts entfernen


2. Zeichengröße im Word-Objekt auf 10 ändern


3. Zeilenabstand auf einzeilig ändern

Ich habe irgendwann (hab schon einige Stunden Arbeit investiert) auf das Hilfsmittel Sendkeys zurückgegriffen (ich weiß, nicht gut). Das funktioniert aber auch nicht wirklich (einige Sendkeys-Befehle werden schlicht ignoriert).

Mir ist dann aufgefallen, dass in der Bearbeitungsleiste die Formel =Einbetten("Word.Document.8";"") auftaucht.

Meine eigentliche Frage ist nun:

Wer kann mir weitere Informationen zu dieser Formel geben? Excel 2000 sagt dazu nichts, Google auch nicht (oder doch?)?

Danke!

Gruß

Steffen Kuch

Für jedes Blatt den VBA-Code

Private Sub Worksheet_Change(ByVal Target As Range)
   Call Modul1.EingabeWandeln(Target)
End Sub

hinterlegen.

In einem Modul (hier Modul1) Deinen Code hinterlegen und zwar unter einem neuen Namen und nicht als "Private" deklariert:

Sub EingabeWandeln(ByVal Target As Range)
...
... Dein Code (unverändert)
...
End Sub

So musst Du den Code nur an einer Stelle pflegen.
Herzlichen Gruß
Dirk

liegt das Problem nicht nur einfach darin, dass du um den Code selber herum die Tabellen (Sheets) durchwandern muss:

    For I = 1 To Sheets.Count
        Sheets(I).Select

         'ab dieser Stelle deinen Code

    Next I

Ich könnte mir vorstellen, dass man es dann auch allgemein einstellen kann.

Gruß Olaf

Habe momentan den Code in jedes TabBl kopiert.  Nochmals Dank und frdl. Grüße

Hans Paul

Noch einen erfolgreichen Tag - Dirk

Wenn ich u.a. Code in  "Diese Arbeitsmappe" stelle, funktioniert er nicht. Damit der Code funktioniert, bin ich gezwungen, ihn in jedes einzelne TabBl zu kopieren. Irgendwo habe ich einen Fehler!

Für Hilfe wie immer dankbarf.

Beste Grüße aus Karlsbad, Hans Paul

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabebereich As String
Dim Eingabe, Zeitwert
On Error GoTo chgevent_error
Eingabebereich = "J18:L72"
If Not Application.Intersect _
(Target, ActiveSheet.Range(Eingabebereich)) _
Is Nothing _
And _
IsNumeric(Target.Value) _
And _
Target.Cells.Count = 1 Then
Application.EnableEvents = False
Eingabe = Format(Target.Value, "0000")
Zeitwert = _
Left(Format(Eingabe, "0000"), Len(Eingabe) - 2) & _
":" & _
Right(Format(Eingabe, "0000"), 2)
Target.Value = Zeitwert
End If
chgevent_error:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

1. Im VBA-Projekt-Explorer: Einfügen -> Userform 
Der Userform habe ich den Namen frmMaske gegeben
2. Aus dem Fenster Werkzeugsammlung eine Checkbox in die Userform einfügen
Die Checkbox habe ich cbxMo genannt und unter Caption habe ich Montag eingetrragen
3. Aus dem Fenster Werkzeugsammlung eine Befehlsschaltfläche in die Userform einfügen
Die Schaltfläche habe ich cmdOK genannt und mit Montag beschriftet

Mit einem Doppelklick auf die Schaltfläche cmdOK geht das Codefenster auf und der Prozedurrumpf

Private Sub cmdOK_Click()

End Sub

wird eingefügt. Diesen ergänzt Du. Um die Wirkung zu testen kannst Du z.B. eine Meldung ausgeben lassen, die den Status der Checkbox ausgibt. Das sieht dann so aus:

Private Sub cmdOK_Click()

    If frmMaske.cbxMo = True Then
        MsgBox "Montag ist gesetzt!", vbOKOnly + vbInformation, "Testmeldung"
    Else
        MsgBox "Montag ist NICHT gesetzt!", vbOKOnly + vbInformation, "Testmeldung"
    End If

End Sub

Damit die Maske nach dem Start der Arbeitsmappe automatisch angezeigt wird, muss unter Diese Arbeitsmappe noch die Prozedur

Private Sub Workbook_Open()
    frmMaske.Show
End Sub

eingetragen werden. Nach Speichern, Schließen und erneutem Öffnen sollte das Testbeispiel funktionieren.

Viel Erfolg - Dirk

in einem Arbeitsblatt (Kalender), pro Tag 2 Spalten,

sollen an 2 Tagen/Woche, ständig wechselnd (mal  Mo und Do, mal Mo und Fr usw., zu einer wechselnden Uhrzeit  ein Termin - immer gleicher Text - eingetragen werden. Es kann  aber  vorkommen, daß  der eine oder andere Termin ausfällt; d.h. es muss die Möglichkeit gegeben sein, diesen einen Termin explizit zu löschen. Das jeweilige Tagesdatum ist in Zeile K1:CW1 eingetragen, wobei das Datum in jeder 3. Zelle ab K1 abgelegt ist. Also K1, N1, Q1 usw.

Alle meine Versuche eine Maske "zu zimmern" in der ich  die Auswahl von Mo - Fr habe, einen Haken  setzen kann  ob jeder Termin einzeln  oder gesamt (an allen z.B. Mo  und Do)  gesetzt werden soll, scheiterten. Für einen Denkanstoss wäre ich dankbar.

Mit den besten Grüßen aus Karlsbad

Hans Paul

verzeih die späte Antwort,aber ich habe ständig Verbindungsprobleme mit dieser Seite. Alle Verbindungen klappen,nur diese nicht.

Danke für deine Antworten und alles Gute .

Gruß Volkhard

Excel 2003: <Daten><externe Daten importieren><Neue Webabfrage ...><URL eingeben><auf gelben Pfeil klicken><importieren>

Excel 2010: <Daten><externe Daten><Aus dem Web> und weiter wie oben

Für die Seite gibt es leider eine Fehlermeldung. Also lässt sich dieser Weg auch nicht automatisieren. Schade!

Wie es laufen könnte, kannst Du am Beispiel der Tabelle der meistgesuchten Aktien auf http://www.ariva.de/wertpapiere.m sehen.

Um Dein Problem zu lösen, müsste man per VBA den Quellcode der Lotto-Seite analysieren und die gewünschten Elemente extrahieren. Da muss ich aus Zeitgründen leider passen.

Gruß - Dirk

Excel bis einschl. 2003: <Extras><Add-Ins> und dann das Häkchen vor Analysefunktionen setzen <OK>

Excel 2007: <Office-Schaltfläche><Optionen><Add-Ins><Gehe zu> und dann wie 2003

Excel 2010: <Datei> und dann wie 2007

Viel Erfolg!
Wegen des Download melde ich mich gesondert. Das muss ich mir erst mal ansehen.

Gruß - Dirk

bei Eingabe der Formel =KALENDERWOCHE(B1;2) erscheint #NAME?.

Die Seite mit den Ergebnissen hat folgende Adresse:

https://www.lotto-bw.de/pfe/view/370436595914E8130F1CCA27D;jsessionid=TQYQLq2v6VCQQVGpBRybppLQLWq162Kc5TwL3MYTSrZDFlW2GzbT!655016235!stipf1!8001!-1!NONE?gbn=3&jdn=3&loc=de

Gruß Volkhard