Matrixspeicherung
20.02.2006 11:17:52
petra
habe folgenden Makro (der so natürlich noch nicht funktioniert und auch noch nicht das macht was er machen soll):
Sub kopieren()
Dim rngfind As Range
With Sheets("Speicher")
Set rngfind = .Rows("3").Find _
(what:=Sheets("Input").Range("B1"), after:=.Range("A1"), LookIn:=xlValues)
End With
If rngfind Is Nothing Then
MsgBox "nichts gefunden"
Exit Sub
Else
Range("E5:E318").Copy rngfind.Offset(0, 1)
End If
End Sub
Was ich suche ist ein Makro der mir in Abhängigkeit von verschiedenen Parametern Werte in einem Speicher an der entsprechenden Stelle abspeichert.
und zwar findet ihr unter https://www.herber.de/bbs/user/31230.xls eine beispieldatei, die eine bessere vorstellung geben soll, was das Makro können soll.
im grunde möchte ich per schaltfläche die Werte im orangen bereich in den Speicher an der richtigen Stelle abspeichern. Beeinflusst wird der Zellenbereich durch die Zellen A5:A35 und B1 im Tabellenblatt Input. A5:A35 können sich je nach abfrage verändern. manchmal stehen auch nur Werte von A5 bis A32 drin. also nicht immer bis A35. das muss irgendwie auch berücksichtigt werden, da ansonsten die gefahr besteht, daten zu überschreiben.
Der Speicher ist in einer Matrix aufgebaut. Der Makro muss also im Speicher die entsprechenden Werte in Spalte A finden und die entsprechende Zeile in 5.
Insgesamt hat der Speicher einen Umfang von A5:AM318.
Zur info: es müssen nicht überall Werte im orangen Bereich stehen.
kann mir jemand helfen?
lg petra