VBA Einstiegsexperiment

Hallo liebe Forumsmitglieder,
vor etwa einem Jahr bin ich durch ein Projekt auf VBA aufmerksam geworden. Zuvor kannte ich Excel nur mit den tpyischen Formeln (womit man ja auch unglaublich viel anstellen kann, wenn man weiß wie). Seitdem bin ich sehr angetan von VBA und versuche jedes Dokument irgendwie durch VBA "bequemer" zu machen.
Zu Beginn ging das auch recht gut, denn die erste MsgBox konnte noch das Gefühl des Erfolgserlebnisses hervorrufen.
Mittlerweile bin ich aber irgendwie stecken geblieben zwischen "ja, das bekomme ich hin" und "ohje, wie soll ich das nur angehen". Ich habe versucht durch Literatur etwas tiefer in die Materie einzusteigen, aber ich tue mir einfach unglaublich schwer.
Und wie lernt man besser als durch praktische Anwendung?
Daher meine Idee:
Ich würde mich freuen, wenn mir einer von euch Experten so etwas wie eine kleine Miniaufgabe stellt, an der ich mich versuche. Habe ich sie gelöst, kann die nächste Aufgabe kommen. Zum Beispiel: "Erstelle eine Abfrage, die beim Öffnen des Dokuments ausgeführt wird und ein Datum auf Aktualität überprüft".
Ich denke, dass ich so die schnellsten Fortschritte erzielen würde und das ganze auch noch mit etwas Spaß! :)
Vielleicht mag das für den ein oder anderen unpassend erscheinen für das Forum hier, aber eventuell findet ja auch jemand von euch daran etwas Gefallen!
Was kann ich:
- nur die einfachsten Grundlagen
- MsgBox ausführen bei bestimmten Bedingungen
- einfache If/Else Anwendungen
Wohin will ich:
Es wäre toll, wenn ich irgendwann selbst komplizierte Codes schreiben könnte.
Ich würde mich freuen, wenn mich der ein oder andere Experte von euch auf meinem Weg begleiten würde! :)
Liebe Grüße,
Svenja

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Dim Zufallszahl As Long Dim rg As Range Zufallszahl = Cells(1, 1) Cells(2, 1).Value = Left(Zufallszahl, 1) Cells(3, 1).Value = Mid(Zufallszahl, 2, 1) Cells(4, 1).Value = Mid(Zufallszahl, 3, 1) Cells(5, 1).Value = Mid(Zufallszahl, 4, 1) Cells(6, 1).Value = Mid(Zufallszahl, 5, 1) Cells(7, 1).Value = Right(Zufallszahl, 1) End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Application.EnableEvents = False Dim Zufallszahl As Long Zufallszahl = Cells(1, 1) Dim i As Integer Dim a As Integer i = 1 a = 2 For i = 1 To 6 Cells(a, 1).Value = Mid(Zufallszahl, i, 1) a = a + 1 Next i Application.EnableEvents = True End If If Target.Address = "$B$1" Then Application.EnableEvents = False Dim Zufallszahl2 As Long Zufallszahl2 = Cells(1, 2) Dim r As Integer Dim s As Integer Dim result As Integer Dim b As Integer r = 1 s = 2 b = 2 result = 2 For r = 1 To 6 Cells(s, 2).Value = Mid(Zufallszahl2, r, 1) Cells(result, 3).Value = Cells(b, 1) * Cells(s, 2) result = result + 1 b = b + 1 s = s + 1 Next r Application.EnableEvents = True End If End Sub

Option Explicit Private Sub ZufallszahlenErzeugen() Dim zelle As Range Dim lX As Long UsedRange.Clear For Each zelle In Range("A1:B1") zelle.Value = Int((999999 * Rnd) + 1) For lX = 1 To Len(zelle.Text) zelle.Offset(lX) = Mid(zelle.Text, lX, 1) If zelle.Column = 2 Then _ zelle.Offset(lX, 1) = zelle.Offset(lX, -1) * zelle.Offset(lX) Next lX Next zelle End Sub

Hallo
Ich bin auch zufrieden mit Deiner Arbeit.
Aber Du hast die Aufgabe "nicht ganz" nach meiner Vorstellung gelöst,
was aber auch an meiner Beschreibung der Aufgabe liegen könnte.
Ich hatte ja einen Nachtrag zur Aufgabe geschickt, den Du evtl nicht bemerkt hast?!
Nachtrag zur Aufgabe ... - von Matthias L am 04.08.2015 10:32:25
Ich wollte das Du mit VBA erst eine ZufallsFormel in A1:B1 schreibst
Und dannach die so entstandene Zufallszahl in einen festen Wert umwandelst
Also, in etwa so:

Option Explicit
Sub Zufall()
Dim x&
Range("A1:C7").ClearContents 'Zielbereich löschen
With Range("A1:B1")
.FormulaLocal = "=GANZZAHL(ZUFALLSZAHL()*999999)"
Range("C1") = " vbYes Then
Exit Sub
Else
.Value = .Value
End If
End With
For x = 1 To Len(Range("A1"))
Cells(x + 1, 1) = Mid(Range("A1"), x, 1)
Next
For x = 1 To Len(Range("B1"))
Cells(x + 1, 2) = Mid(Range("B1"), x, 2)
Cells(x + 1, 3) = Cells(x + 1, 1) * Cells(x + 1, 2)
Next
Range("C1") = "'A * B"
End Sub

Schau es Dir an und versuche auch diesen Code nachzuvollziehen.
Dann wollte ich ja noch das Du Dir Gedanken machst welche Formel z.B. in B2:B7 steht
wenn Du immer die gleiche Formel benutzt. Ist zwar kein VBA,
stand aber als Zusatzaufgabe im Beitrag ;-)
Sie sieht dann z.B. so aus:

	B
1	542082
2	5
3	4
4	2
5	0
6	8
7	2

Formeln der Tabelle

Zelle	Formel
B1	=GANZZAHL(ZUFALLSZAHL()*999999)
B2	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)
B3	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)
B4	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)
B5	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)
B6	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)
B7	=TEIL(LINKS(B$1;ZEILE()-1);ZEILE()-1;1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	8953	219674	Multipliziere
2	8	2	16
3	9	1	9
4	5	9	45
5	3	6	18
6		7	#WERT!
7		4	#WERT!

	A	B	C
1	4291	316226	Multipliziere
2	4	3	12
3	2	1	2
4	9	6	54
5	1	2	2
6		2	Fehler
7		6	Fehler

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Einstiegsexperiment

34 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread