Herbers Excel-Forum - das Archiv

Formeln in Zeile und Spalte mit Ausfüllkästchen ko

• Formeln in Zeile und Spalte mit Ausfüllkästchen ko von Christian vom 17.11.2003 16:30:02
  • AW: Formeln in Zeile und Spalte mit Ausfüllkästchen ko - von Klaus-Dieter am 17.11.2003 18:31:28
    • Mist, das war nichts ;-(( - von Klaus-Dieter am 17.11.2003 18:50:58
      • Das Makro - von Klaus-Dieter am 17.11.2003 19:00:24

Betrifft: Formeln in Zeile und Spalte mit Ausfüllkästchen ko
von: Christian
Geschrieben am: 17.11.2003 16:30:02
Hallo

normaler Weise wird, wenn man eine Formel mit Hilfe des Ausfüllkästchens "verfielfältigt der Adressenteil (Spalte oder Zeile) hochgezählt, der kein Absolutbezug ist. Also, zieht man in die nächsten Felder der Zeile wird der Zeilenindex hochgezählt, zieht man in die nächsten Felder der Spalte wird der Buchstabe "hochgezählt".

Nun habe ich folgendes Problem:
In einem Arbeitsblatt stehen in ca. 200 Feldern einer Zeile Werte (also in A1, B1....)in einem anderen Arbeitsblatt in ca 200 Feldern einer Spalte Werte (also in a1, a2, ...).

Diese will ich nun mit der einfachen Formel A1 mal a1, B1 mal a2 usw berechnen, die Ergebnisse sollen in einer Spalte stehen.

Das geht mit dem praktischen Ausfüllkästchen leider nicht, da hier, wie oben beschrieben, entweder Zeile oder Spalte hochgezählt wird.

Kennt jemand eine einfache Lösung für das Problem, wenn möglich ohne ein Makro
programmieren zu müssen und ohne eine der Qellen mit "transponieren" irgend wohin zu kopieren???

Bin gespannt, habe schon viel probiert und "zu Fuss" möchte ich die Formeln nicht eingeben müssen ;-))

Dank im Voraus

Christian

  
 
A
B
C
D
E
F
G
H
I
J
1
39
429
585
507
273
351
741
624
195
741
2
34
 
 
 
 
 
 
 
 
 
3
28
 
 
 
 
 
 
 
 
 

Betrifft: Mist, das war nichts ;-((
von: Klaus-Dieter
Geschrieben am: 17.11.2003 18:50:58
Hallo Christian,

da war ich leider zu voreilig. Fürchte, das geht nur per Makro.

Gruß Klaus-Dieter

Betrifft: Das Makro
von: Klaus-Dieter
Geschrieben am: 17.11.2003 19:00:24
Hallo Christian,

anbei das Makro:

Option Explicit
Sub berechnen()
Dim s As Integer
Dim sp As Integer
For s = 1 To 200
sp = sp + 1
Worksheets("Tabelle1").Cells(s, 2) = Worksheets("Tabelle1").Cells(s, 1) *  _
Worksheets("Tabelle2").Cells(1, sp)
Next s
End Sub

Code eingefügt mit: