Nun soll ich neben jeder Spalte eine weitere einfügen (und das kann ich ).
In ihr soll für jede positive Zahl eine 1 und für jede negative Zahl eine -1 und für null keine Eintrag vorgenommen werden.
Da dies natürlich eine mordsermüdende Arbeit ist, frage ich mich ob jemand eine Idee hat, wie man dies mit einem Makro oder Visualbasic lösen kann.
Für jede Hilfe wäre ich Euch echt dankbar und habt ihr keine so legt für mich doch bitte eine Schweigesekunde ein (10000mal 1 und -1 tippen ).
Im Prinzip hat Ullrich es schon gesagt, wie’s geht. Mit einem Makro kannst du’s auch machen, musst dann die „WENN(…)“ nicht 10 000 mal kopieren:
Sub vorzeichen()
Dim i1%, wert
Range(„A1“).Select
For i1 = 0 To 10000
wert = Sgn(ActiveCell.Offset(i1, 0))
If wert = 0 Then wert = „“
ActiveCell.Offset(i1, 1) = wert
Next i1
End Sub
Statt „A1“ musst du deine erste Zelle einsetzen. Wenn du mehrere Spalten nebeneinander hast, in denen deine Ausgangswerte stehen, musst du diese entsprechend bearbeiten. Obiger Makro schreibt mit „ActiveCell.Offset(i1, 1) = wert“ das Ergebnis in die Spalte direkt neben deinem Ausgangswert. Auch das kannst du natürlich entsprechend anpassen, z.B. 10 Spalten weiter rechts, oben, unten, sonstwo hinschreiben.
).
).