Array

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...Frank?
...und dann (vor lauter Langeweile ?) nicht auf Renée's (wahrscheinlich auch langweiligen) Vorschlag reagieren... x! x! x!
Aber bitte, wenn deine VBA-Kenntnisse auch (noch) bescheiden sind, du kannst es gern auch so haben wie du willst, allerdings deutlich aufwendiger und wahrscheinlich ja auch nicht auf deinem Level, aber in 1-2 Jahren nutzt dir ja vielleicht folgendes Bsp, wer weiß... ;-)
Dokumentklassenmodul der Tabelle:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fx
With Application
.EnableEvents = False
If Not Intersect(Target, Range("A1:E1")) Is Nothing Then
Call VarTest
Call VarTest(1)
MsgBox "Nr " & Nr & vbLf & "LWB " & LWB & vbLf & "Bez " & _
Bez & vbLf & "Typ " & Typ & vbLf & "FGN " & FGN
End If
fx:     .EnableEvents = True
End With
End Sub

Normales Modul:


Option Explicit
Public Nr As Long, LWB, Bez, Typ, FGN
Rem © LSrCyWorXxl 20080526
Sub VarTest(Optional ByVal CDel As Boolean = False)
Static delZ As Integer
Dim m As VBComponent, x As Variant
Const alleVar As String = "Nr LWB Bez Typ FGN"
With ActiveWorkbook.VBProject
For Each m In .VBComponents
If m.Name = "Modul1" Then
With m.CodeModule
If CDel Then
.DeleteLines .ProcStartLine("SetzeVar", vbext_pk_Proc) + 3, delZ
Else: delZ = 0
For Each x In Split(alleVar, " ")
delZ = delZ + 1
.InsertLines .ProcStartLine("SetzeVar", vbext_pk_Proc) + 2 + _
delZ, vbTab & x & "=Range(""A1:E1"").Cells(1," & delZ & ")"
Next x
Application.Run "SetzeVar"
End If
End With
Exit For
End If
Next m
End With
End Sub
Sub SetzeVar(Optional ByVal dummy As Boolean)
Rem Hiernach wdn Befehle eingefügt:
End Sub

Gruß Luc :-?
PS: Allerdings verwende ich so etwas nicht für diesen Zweck! Es gibt da noch andere, interessantere Einsatzmöglichkeiten...

Hi
wenn dir langweilig ist, dann beschäftige dich doch mal ein bisschen mit Variablentypen, Objekt- und Array-Variablen, vielleicht verstehtst du es dann besser.
deine Problematik könnte man anders (ich sage jetzt nicht "besser") so lösen:
1. Variablen und Konstantendeklaration:


const Nr = 1
const LWB = 2
const Bez = 3
const Typ = 4
const FGN = 5
dim MeineVariablen as Variant

2. Datenzuweisung:


MeineVariablen = Range("A1:E1").value

3. verwenden der Variablen im ProgrammCode
um beispielsweise jetzt Bez mit Typ zu mulitplizieren und das Ergebenis der Variable FGN zuzuweisen, verwendet man folgenden code:


MeineVariablen(1, FGN) = MeineVariablen(1, Typ) * MeineVariablen(1, Bez)

ob das jetzt Spannender ist, als deine Mehtode, weiß ich nicht, manchmal ist es aufdiese Weise hilfreich, wenn alle Variablen nach dem gleichen Schema verarbeitet werden sollen, weil ich so eine Schleife verwenden kann.
Beispiel: alle 5 Variablen sollen mit 10 mulipliziert werden:


For i = 1 to 5
MeineVariablen(1, i) = MeineVariablen(1, i)*10
next

gruß, Daniel

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread