Office: (Office 2019) Ausgewählte Zellen per VBA in verschiedene Tabellen speichern

Hallo Mike,

Tausche den Code im Modul3 komplett aus.
Dieses war die letzte Änderung meinerseits, es gibt genug Infos im Internet um VBA zu lernen...

Grüße,
evus
Code:

 

Hallo Evus,

nochmals vielen dank.

Ist Ok....ich werde mich im Netz weiter umsehen.
Habe mir schon ein paar Lernvideos herunter geladen und mache so weiter.

Auf jeden Fall....danke für deine Hilfe.

Gruß
Mike

 

Empfehlung:
a) https://www.youtube.com/user/WiseOwlTutorials
b) Paul Kellys Blog

 

Hallo Evus,

nochmals Danke für die Infos.

habe aber noch eine Frage zu deinem Code.

Wenn ich später mal eine zusätzliche Tabelle in dem Code mit angeben möchte,
reicht es da aus, wenn ich in dem Code an dieser Stelle:

' erste mögliche Zeile, Datumspalte, Lottozahlen, kompl.Name der Zieltabelle
t(0) = Array(3, 17, werte, "Lotto-Uhr-" & Tag)
t(1) = Array(3, 63, werte, "Kreuz-Tipp-" & Tag)
t(2) = Array(4, 18, werte, "Drittel-Strategie-" & Tag)
t(3) = Array(3, 1, werte, "Ziehung-" & Tag)
t(4)=Array(3, 1,werte, "TBName-" &Tag)

eingebe?

oder muss ich an anderen Stellen noch mehr angeben?

Ich würde mir das im Code für später als Info markieren, falls dort irgendwann eine zusätzliche Tabelle mit hinein soll.

das ist nun wirklich meine letzte Frage an dich! *Smilie

Gruß
Mike

 

Hallo Evus,

ich habe mal genau nachgesehen in dem Code.

Wenn ich mal eine oder 2 zusätzliche Tabellen in dem Code eingeben möchte,
glaube ich, müsste der erste Teil so aussehen, oder?

Die Tabelle Münz-Tipp-Samstag müsste eigentlich noch mit hinein. *Smilie

Habe das zwar so geändert um es auszuprobieren, aber der Debugger
meldet sich bei: If Chek (Falsche Anzahl an Argumenten oder ungültige Zuweisung)

Ich dachte, ich hätte den Code verstanden?

 

Hallo Mike,

die Variable "t" ist ein Array. (google mal nach "vba was ist ein Array")

Zur Zeit willst du in 4 Tabellen die Zahlen schreiben, also ist diese Variable mit "Dim t(3) As Variant" dimensioniert, da die Zählung mit 0 beginnt.

Wenn du also noch eine 5. Tabelle inzufügen möchtest, müssen in der Sub "Daten_speichern" folgende Zeilen angepasst werden:

alt: Dim t(3) As Variant
neu: Dim t(4) As Variant

alt: For i = 0 To 3
neu: For i = 0 To 4

Letzteres in zwei Zeilen, da mit der ersten Schleife die Prüfung aufgerufen wird und erst, wenn unter dem Datum in keiner Tabelle Daten gespeichert sind, das Schreiben der Daten erfolgt.

Der Code den du im letzten Post rot formatiert hast ist richtig.


Grüße,
evus

 

Hallo evus,

Also habe ich eigentlich alles richtig gemacht, trotzdem bekomme ich einen Fehler im Code, Zeile

If Check(t(i)(0), t(i)(1), t(i)(2), t(i)(3), t(i)(4)) Then


Der geänderte Code sieht nun so aus:

'Daten lesen
Public Sub Daten_speichern(EingabeZeile As Integer, Tag As String)
Dim werte(7) As Variant
Dim t(4) As Variant
Dim i As Integer, f As Boolean

' Werte in Array übertragen
With Worksheets("Treffer_Anzeige")
werte(0) = .Cells(EingabeZeile, 3).Value
For i = 0 To 6
werte(i + 1) = .Cells(EingabeZeile, i * 2 + 6).Value
Next i
End With
' Eingabeprüfung
If Check_Eingabe(werte) Then Exit Sub

' erste mögliche Zeile, Datumspalte, Lottozahlen, kompl.Name der Zieltabelle
t(0) = Array(3, 17, werte, "Lotto-Uhr-" & Tag)
t(1) = Array(3, 63, werte, "Kreuz-Tipp-" & Tag)
t(2) = Array(4, 18, werte, "Drittel-Strategie-" & Tag)
t(3) = Array(3, 1, werte, "Ziehung-" & Tag)
t(4) = Array(3, 1, werte, "Münz-Tipp-" & Tag)

' Prüfung
For i = 0 To 4
If Check(t(i)(0), t(i)(1), t(i)(2), t(i)(3), t(i)(4)) Then
MsgBox "Ziehung schon vorhanden.", vbInformation, Tag
f = True: Exit For
End If
Next i
' Daten in Tabellen schreiben
If Not f Then
For i = 0 To 4
Call Schreiben(t(i)(0), t(i)(1), t(i)(2), t(i)(3), t(i)(4))
Next i
MsgBox "Ziehung gespeichert.", vbInformation, Tag
End If
End Sub


Das müsste dann aber doch richtig sein?!

Warum habe ich dann die Fehlermeldung:

(Falsche Anzahl an Argumenten oder ungültige Zuweisung

Gruß
Mike

 

Hallo Mike,

das ist ja auch falsch!!!

--If Check(t(i)(0), t(i)(1), t(i)(2), t(i)(3) , t(i)(4) Then

ich habe dir doch geschrieben das du NUR die Dim-Zeile und die For-Zeile ändern darfst.

" , t(i)(4) " muss wieder weg, die Anzahl der übergebenen Parameter haben nichts mit der Anzahl der Zieltabellen zu tun. Die erste Dimension von "t" bezieh sich auf die Anzahl der Tabellen und die zweite auf die Anzahl der an die der Prozedur zu übergebenden Parameter.


Grüße,
evus

 

Hallo evus,

sorry, das habe ich missverstanden.
Aber jetzt habe ich es richtig verstanden.

Geändert und ausprobiert und funktioniert.

Vielen Dank.

Nun lasse ich dich in Ruhe *wink.gif*

Gruß
Mike

 

https://www.clever-excel-forum.de/Th...ch-und-Samstag

https://www.clever-excel-forum.de/Th...BA-abspeichern

der Mike läßt sich jetzt die zweite Lotto App bauen. evus überleg dirs lieber nochmal.

 

Hallo ralf_bx,

danke für die Info.

Kölnisch-Wasser-Mike erhofft sich damit doch nur einen 6-er im Lotto...

Grüße,
evus