Microsoft Excel

Herbers Excel/VBA-Archiv

kleine vba-prozedur

Betrifft: kleine vba-prozedur von: Anja
Geschrieben am: 14.09.2004 07:51:24

Hi ihr Experten,

habe folgende Frage. In einer Tabelle stehen in den Zellen A3-F3 Zahlen. Durch einen Klick auf einen Button sollen diese Zahlen in ein Array übernommen werden und nachdemm gewisse Sachen gemacht wurden , sollen die Zahlen in die Zellen A5-F5 geschrieben werden.

Kann mir jemand von Euch mal den Quelltext der Prozedur dazu mitteilen?

Die Anne grüßt

  


Betrifft: AW: kleine vba-prozedur von: Hans W. Herber
Geschrieben am: 14.09.2004 08:04:22

Hallo Anja,

eine Übernahme in Variablen erübrigt sich hier. Sie folgt:

Sub Berechnen()
   Dim rng As Range, rngSource As Range, rngTarget As Range
   Dim iCell As Integer
   Set rngSource = Range("A3:F3")
   Set rngTarget = Range("A5:F5")
   For iCell = 1 To rngSource.Cells.Count
      rngTarget(iCell).Value = rngSource(iCell).Value + iCell
   Next iCell
End Sub


Gruss hans


  


Betrifft: AW: kleine vba-prozedur von: ypsilon
Geschrieben am: 14.09.2004 08:04:52

hi Anne,
so in etwa ?

Sub Makro3()
Dim arr
arr = Array(Range("A3:F3").Value)
'rgendwelche gewisse sachen ;-)
Range("A5:F5") = arr(0)
End Sub


cu Micha


  


Betrifft: AW: kleine vba-prozedur von: Anja
Geschrieben am: 14.09.2004 15:17:44

hi danke für die Antworten,

das was ich machen möchte ist die Zahlen zu ordnen:
also sowas( in Basic)

Eingabe von A3-F3

dim a(6)
n=6
for i=1 to 5
for j=1 to n-i
if a(j) >a(j+1) then
h=a(j)
a(j)=a(j+1)
a(j+1)=h
next j
next i

und nun die Ausgabe in den Zellen A5-F5

da helfen mir eure Sachen glaub ich nicht wirklich weiter oder?

Die Anne grüßt


  


Betrifft: AW: kleine vba-prozedur von: K.Rola
Geschrieben am: 14.09.2004 08:08:20

Hallo,

hier mal ein allgemeines Beispiel:

Option Explicit
Sub Testarray()
Dim arr, i As Byte
arr = [A3:F3]
For i = LBound(arr, 2) To UBound(arr, 2)
  arr(1, i) = arr(1, i) * 1.5
Next
[A5:F5] = arr
End Sub


Gruß K.Rola