Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

VBA einfache Programm/Struktogramm-Beispiele

Empfohlene Antworten

Veröffentlicht

hi!

Hab die Suchfunktion benutzt (wirklich :D ) hab aber nix brauchbares gefunden, sorry.

Also das is meine Situation:

Schreibe bald eine AEW Klausur mit Thema Array und Random-Funktion im Excel-VBA (Zufälliger Turnierplan, Telefonliste etc)

leider komm ich mit den Struktogrammen und Arrays nich klar.

weiss jemand eine gute seite wo es beispiele dafür gibt?

wäre sehr dankbar dafür.

Alex

genauer?

also generischer turnierplan stell ich mir so vor:

liste aller spieler, geh mit rnd über die liste und trag sie ins array ein, gleichzeitig auch von liste löschen damit sie nicht nochmal ins array kommen...

und das array kannst du ja auch hochzählen...

oder hab ich was falsch verstanden? :confused:

ne das hast du komplett richtig verstanden.

dat ding is nur, dass ich jetz nach seiten suche wo das n bissl erklärt wird. hab nur die unterlagen ausser schule und richtig gerallt hab ich das da leider nicht. deswegen versuche ich das jetz mit alleine mithilfe von diversen "anfänger"-quellen beizupuhlen

seiten kenn ich keine, aber hier mal ein bsp.:

bei fragen frag...

Sub tstarr()
Dim Liste(30)
Dim Spiele(15)
Dim Index As Integer
Dim Index2 As Integer
Dim Game As Integer

Index = 1
Game = 1

Do While Index <> 31
Liste(Index) = Index
Index = Index + 1
Loop

Randomize

Do While Game <= 15
Index = Int((30 * Rnd) + 1)
Index2 = Int((30 * Rnd) + 1)
Index = Liste(Index)
Index2 = Liste(Index2)
If Index <> Index2 And Index <> 0 And Index2 <> 0 Then
Spiele(Game) = Array(Index, Index2)
Liste(Index) = 0
Liste(Index2) = 0
Game = Game + 1
End If
Loop

End Sub[/PHP]

dnake für den hinweis :P

und habs sogar vertanden (denk ich) aber klausur is ja jetz vorbei und hab dusselige fehler gemacht, also will ich erstmal für 5 tage nix mit vba zu utn habe :D

aber dankeschön

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.