Also ein Skript über Einführung in VBA haben wir ja..
sind ganze 93 Seiten.. wie man einiges programmiert, weiß ich auch...
doch wie das mit der grafischen Oberfläche macht, da stellen sich immer noch fragen bei mir...
Bücher sind schön und Gut.. doch bringt nicht viel, da die zeit dazu wiederum zu wenig ist...
Ich hab mir auch webdesign anhand beispiele beigebracht, und das funktionierte (wie man glaub an meine page sehen kann) wunderbar....
mfg danije
Also ich hab mich nun selbe rmal dahingesetzt... und bestehende dateien die ich so gefunden habe.... angeschaut und bearbeitet...
nun weiß ich wie man die Grafik einbaut und wie man Schaltflächen einsetzt und wie man das ganze dann verknüpft....
nun muss ich mir vorher nur nen konzept zusammen legen wie ich vorgehe... und dann fang ich mal an zu schreiben..
so schwer ist das ganze nicht.
ich setz dann das ganze auch so zusammen, das eingegebene daten mit den daten des thema zusammen gesetzt werden...
zumindestens so, das die Statistik nach der art der eingabe sortiert wird....
hoffe das geht
kann mir jemand bei einen befel helfen.....
Private Sub weiterstart_Click()
Dim hochschule1 As String
Dim hochschule2 As String
Dim hochschule3 As String
Dim hochschule4 As String
Dim hochschulegesamt As String
Do While Bedingung
If hochschule1 Then
Sheets("1.Hochschule").Select
If hochschule2 Then
Sheets("2.Hochschule").Select
If hochschule3 Then
Sheets("3.Hochschule").Select
If hochschule4 Then
Sheets("4.Hochschule").Select
If hochschulegesamt Then
Sheets("Gesamt").Select
End If
Loop
End Sub
Ich möchte das man von vier begriffe per Kotrollkästchen eins auswählt und dann auf nen button klickt und dann auf die tabelle kommt was man angeklickt hat... nun weiß ich aber net was ich da als Bedingung schreiben soll.... wie schreibt man es richtig.. vielen dank
Hier habe ich auch ein zweiten versuch....
der funktioniert... jedoch läuft er komplett durch... also führt alle, statt nur den angeklickten Optionsfeld, aus
ich müsste glaub das ganze mit ne If Schleife verschachteln, das er nur bei true rein kommt und bei Fals draussen bleibt...
doch ich bekomm das einfach nicht hin
Private Sub weiterstart_Click()
Dim hochschule1 As Boolean
Dim hochschule2 As Boolean
Dim hochschule3 As Boolean
Dim hochschule4 As Boolean
Dim hochschulegesamt As Boolean
hochschule1 = True
Sheets("1.Hochschule").Select
hochschule2 = True
Sheets("2.Hochschule").Select
hochschule3 = True
Sheets("3.Hochschule").Select
hochschule4 = True
Sheets("4.Hochschule").Select
hochschulegesamt = True
Sheets("Grafik").Select
End Sub
Versuch es doch einfach einmal mit einer For-Schleife, mit diesen kannst du BOOL-Werte recht komfortabel handeln. Oder du machst es mit IF/ELSEIF/END ELSEIF.
Gruß
Markus
Habe ein problem mit der Diagramm erstellung.. Ich habe es geschafft von einem button ein diagramm zu erstellen, jedoch muss ich das verbinden mit einem option button(UserForm)! Das heisst zwei werte aus einer tabelle sollen durch auswahl in einem automatisch neu berchneten diagramm angezeigt werden(Vergleich)! Das diagramm haut hin. nur die auswahl der daten klappt nicht. Bitte helft mir!
Greetz
Ceeko
Würde dir gerne weiterhelfen, habe aber mit VBA bis dato einfach zu wenig gearbeitet und irgendwie ist da auch nichts hängengeblieben.
Gruß
Markus
Markus
Ja daran habe ich auch schon gedacht... und der prof gab mir auch den Tipp mir der While Do Schleife...
Doch wenn ich diese Schleife anwende... brauch ich natürliche ne bedingung, damit es in dieser Schleife geht... doch mir fällt absolut keine Bedingung ein...
Wie würdest du es denn formulieren.. wie sollte ich es schreiben...
meine denkweise war so, das er überprüft, welche Werte "Wahr" (true) sind und welche "Falsch"(false) und diesen richtigen wahren wert sollte er dann durchführen... so weit so gut, doch er befindet in meinen jetzigen standpunkt alles für wahr und geht alle befehle durch.... so das er über alle tabellenblätter durchgeht und das zu letzt genannte stehen bleibt...
Danke Jens...
doch ich kann kein Englisch... *schäm*
also wie wende ich das nu an?
Private Sub weiterstart_Click()
Dim hochschule1 As Boolean
Dim hochschule2 As Boolean
Dim hochschule3 As Boolean
Dim hochschule4 As Boolean
Dim hochschulegesamt As Boolean
If hochschule1 Is True Then
Sheets("1.Hochschule").Select
If hochschule2 Is True Then
Sheets("2.Hochschule").Select
If hochschule Is True Then
Sheets("3.Hochschule").Select
If hochschule4 Is True Then
Sheets("4.Hochschule").Select
If hochschulegesamt Is True Then
Sheets("Grafik").Select
End If
End Sub
doch das funktioniert nicht....
wie sollte man das denn da schreiben?
Das hab ich schon ausprobiert...
das klappt aber nicht...
welchen typ sollen die Optionsfelder denn haben.... Boolean oder nicht...
kann es auch evtl sein das ich irgendwas au fden tabellenblatt frei schalten muss.. oder ändern... ich sitz da nun schon seit tagen dran und habe so viele varianten ausprobiert.. im internet steht auch nu rmeist was drin von normalen zahlen bzw werten.. doch nichts von optionsfelder...
bitte um hilfe
