hallo,
möchte einfachmal einen einblich bekommen in die makroerstellung und klicke und schreibe mich so durch wie kann ich in vba sagen dass daten zb a1 bis a5 aus tabelle 1 in die tabellen 2 bis 6 kopiert werden
zb a1 aus tab 1 in a1 tab 2
a2 aus tab 1 in a1 tab 3
a3 aus tab 1 in a1 tab 4
usw...
Hi,
bemühe dazu einmal deinen Makrorekorder. Den aufgezeichneten Code kannst du dann hier einstellen. VBA-Helfer zeigen dir dann, wie man ihn entschlackt.
Bitte wende die allgemein übliche Interpunktion an - das erleichtert das Lesen ungemein.
Jo,
Dankeschön das geht ja super, ich werde erstmal so ein bisschen probieren.
LG Micha
[
attachment=3994]
so,
hab jetzt mal probiert, das muss doch einfacher gehen, sicher geht es mit =INDEX(Eingabemaske!A:A;(ZEILE(A4)-1)*7+2) einfacher aber dann hab ich kein makro an dem ich probieren und evtl. verstehen kann...
lg Micha
Moin Micha,
bist du sicher, dass das die richtige Datei mit dem richtigen Makro ist? Esgibt weder das Blatt "datenmaske" noch das Feld "eingabemaske".
Und wenn du in dienen Beiträgen einigermaßen auf Groß- Kleinschreibung achtest, dann antworte ich auch weiterhin.
Hallo Micha!
Zitat:sicher geht es mit =INDEX(Eingabemaske!A:A;(ZEILE(A4)-1)*7+2)
Ich habe mir Deine Datei nicht angesehen, aber mir fällt folgendes auf:
Du bist in der Lage, eine komplexe Zahlenreihe in einer Formel abzubilden!
{23.30.37.44}
Bevor Du versuchst, dies mit Algorithmen nachzubilden:
Du hast bereits den Stein des Weisen gefunden!
Wenn Du mit VBA arbeiten willst, nutze Dein Wissen über effektive Formeln.
Diese kann man nämlich problemlos in einen Bereich schreiben (en bloc!!!), danach mit ihrem Wert zu überschreiben und sie sind IMMER
(zumindest meistens) schneller als "intelligent" aussehender Code.
Ein Quellcode der MS-Entwickler zapft den Prozessor direkt an, ein (zu kompilierender) VBA-Code muss (siehe letzte Klammer) erst übersetzt werden.
My two cents,
Ralf
(28.01.2016, 16:18)RPP63 schrieb: [ -> ]Du bist in der Lage, eine komplexe Zahlenreihe in einer Formel abzubilden!
{23.30.37.44}
Bevor Du versuchst, dies mit Algorithmen nachzubilden:
Du hast bereits den Stein des Weisen gefunden!
Oh Sorry,
das erste Makro ist absoluter Quatsch ist vom vorherigen rumprobieren.
Nun leider ist der Stein der Weisen nicht auf meinem Mist gewachsen...
ich möchte mich in den Makros einarbeiten um später mal eine Abfrage zu schaffen mit der man Rechnungen schreiben kann, es soll eine Kundenkartei (mit Fenster zum eintragen der Stammdaten), eine Rechnungskartei geben und die Rechnungen sollen dann seperat gespeichert werden, irgenwie so, hab noch keine richtige Ahnung wie soetwas genau aussehen könnte.
Ich denke man wächst mit seinen Aufgaben!!!
LG Micha
Hallo,
ich beziehe mich jetzt mal auf die erste Frage. Lösen kannst Du das im Prinzip so. Die Blätter müssen vorhanden sein. Ich gehe hier nach dem internen Blattzähler. Da kann die Reihenfolge anders sein als bei den Blattnamen. Wenn Du aber die Tabellen der Reihe nach eingefügt und die Namen nicht geändert hast, sollte es passen. Ansonsten wäre statt
Sheets(i+1)
dann
Sheets("Tabelle" & i+1)
besser.
Sub test()
'Schleife von 1 bis 5
For i = 1 To 5
'Inhalt der Zellen A1 bis A5 auf Blatt 2 bis 6, Zelle A1, kopieren
Cells(i, 1).Copy Sheets(i + 1).Cells(1, 1)
'Ende Schleife von 1 bis 5
Next
End Sub