excel: bei onclick wert plus 1

[lolo21]

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

[lellebebbl]

Das kannst du am besten mit Visual Basic Prgrammieren

Sub blablabla()

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

End Sub

[lolo21]

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 2010 von lolo21

[vba]

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

[lolo21]

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

[vba]

Hallo,

ich kann den Fehler nicht nachvollziehen.

Hast Du am Beispiel was verändert?

Datei mal raufladen?

Gruß

Alfons

[lolo21]

Hier ist ein Beispiel wie das ganze aussieht.

Umfrage.xlsx

[vba]

und wo sind die Makros?

Gruß

Alfons

[lolo21]

Sry, hab die falsche Datei hochgeladen.

Hier ist die richtige:

Umfrage.ods

[vba]

ich will mir jetzt nicht extra Open Office installieren.

Lade die Datei als Exceldatei rauf.

Gruß

Alfons

[lolo21]

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

[vba]

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

[lolo21]

OK, ich hab das Makro im Klassenmodul gespeichert.

Aber wie starte ich das Makro jetzt?

[lolo21]

Habs selber rausbekommen.

Funktioniert super

vielen vielen Dank.