Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kleine vba-prozedur

kleine vba-prozedur
14.09.2004 07:51:24
Anja
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kleine vba-prozedur
14.09.2004 08:04:22
Hans
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
AW: kleine vba-prozedur
ypsilon
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
Anzeige
AW: kleine vba-prozedur
14.09.2004 15:17:44
Anja
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) &gta(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
AW: kleine vba-prozedur
K.Rola
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige