hallo zusammen,

ich hab vor kurzem eine umfrage in meiner schule gemacht und wollte nun die daten dazu in excel eingeben. doch das ewige " wert um 1 erhöhen " ist mir jetzt zu blöd und ich wollte mal fragen ob ihr vielleicht wisst wie man schnell und einfach den wert eine zelle in excel um 1 erhöht. am liebsten wäre es mir wenn das ganz mit onclick funktionieren würde .

vielen dank schonmal,

lolo21

Das kannst du am besten mit Visual Basic Prgrammieren

Sub blablabla()

    Range("A1").Value = Range("A1").Value + 1

End Sub

da das ganze eher so ne art wahl war und es mehere kadidaten gab müsste man das makro doch für jede spalte neu schreiben , oder?

das währe zwar auch ok aber es gab 89 kategorien mit jeweils ca. 20 kandidaten und da währe das mit dem makro wahrscheinlich noch mehr arbeit als das erhöhen der zahlen von hand.

gibt es in excel keine möglichkeit so was mit onclick zu machen?

Bearbeitet 9. Dezember 201015 j von lolo21

Hallo,

auch bei mehreren Spalten reicht ein Makro.

der Tabellenaufbau ist mir aber nicht ganz klar.

Wenn in Spalte A die Namen stehen und in Zeile 1 die Kategorien

versuch's mal damit:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


  'aussteigen wenn nicht im Bereich B2:H10

  If Application.Intersect(Target, Range("B2:H10")) Is Nothing Then Exit Sub

  'aussteigen wenn mehr als eine Zelle markiert

  If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub

  'hochzählen wenn Zahl

  If IsNumeric(Target.Value) Then Target.Value = Target.Value + 1  

End Sub

Gruß

Alfons

Danke für die Antwort und ich vermute mal das es funktionier aber wenn ich das ganze in Excel starte kommte die Fehlermeldung "Argument ist nicht optimal".

Bei OpenOffice kommt "Ein Scripting Framework Fehler trat während der Ausführungvon Basic script Standard.Module1.Worksheet_SelectionChange auf.

Meldung: wrong number of parameters"

Ich hab noch ein bischen rum probiert und erkannt das das bei allen makros passiert und nicht nur bei deinem.

Muss ich da noch iwas einstellen damit es funktioniert?

Gruß

Lolo21

Hallo,

ich kann den Fehler nicht nachvollziehen.

Hast Du am Beispiel was verändert?

Datei mal raufladen?

Gruß

Alfons

Hier ist ein Beispiel wie das ganze aussieht.

Umfrage.xlsx

und wo sind die Makros?

Gruß

Alfons

Sry, hab die falsche Datei hochgeladen.

Hier ist die richtige:

Umfrage.ods

ich will mir jetzt nicht extra Open Office installieren.

Lade die Datei als Exceldatei rauf.

Gruß

Alfons

Wenn ich die Exceldatei mit makros speicher will muss ichs als *.xlms und die kann man hier nich hochladen.

Aber ich habs sie hier hochgeladen:

Download: Umfrage.xlsm | xup.in

Wenn ich die Exceldatei mit makros speicher will muss ichs als *.xlms und die kann man hier nich hochladen.

Das war mir nicht klar.

OK die Datei ist jetzt aber angekommen und wenn das Makro an der richtigen Stelle eingefügt wird, funktioniert es auch einwandfrei.

Für Tabelle1 muss das Makro im Klassenmodul von Tabelle1 abgespeichert sein und nicht in Modul1.

Ich hab hier keine Fehlermeldungen.

Gruß

Alfons

OK, ich hab das Makro im Klassenmodul gespeichert.

Aber wie starte ich das Makro jetzt?

Habs selber rausbekommen.

Funktioniert super

vielen vielen Dank.