Hilfe bei einem Programm mit Tabellen
16.11.2008 18:36:09
Fokke
ich soll meinem Vater ein kleines Programm schreiben, bin auch dran, hab da aber ein kleines problem
und zwar hab ich zwei Tabellen vorliegen, in der einen stehen Kundeneinzahlungen und in der anderen will mein Vater es so haben, dass da nur die Zeile von dem Kunden angezeigt wird, den er haben möchte.
Also die Zeile ist bei der Einzahlung so aufgebaut: (ich machs jetzt nur für die 2. Zeile)
"A2:BF2"
das soll dann in die Tabelle ("1") so eingefügt werden:
die ersten 20 Daten in Spalte A
die nächsten 20 in Spalte B
und den Rest in Spalte E
Ich hab schon mit Makros aufzeichnen versucht und dann den Code editiert, naja das wurd nix. Der meckert immer beim wechseln der Tabellen
Sub Kunde() Dim a As Single, b As Single, summe As Single, wert As Single, zahla As Single wert = InputBox("Welche Zeile soll ausgewählt werden?") zahla = 0 For a = 1 To 58 Sheets("Leerung 2008").Select Cells(1 + a, wert) = zahla Worksheets("1").Select zahla = Cells(1 + a, wert).Value Next a End Sub
war nur ein schneller neuer test, weil meine anderen Versuche auch gescheitert sind. das ist auch noch nicht zuende
Um Hilfe würd ich mich super freuen
achja hier hab ich mal ne kleine testdatei gemacht mit den Daten
https://www.herber.de/bbs/user/56831.xls
danke sschonmal