Hallo P@ulchen!!! *staun*

Forumthread: Hallo P@ulchen!!! *staun*

10.03.2004 12:58:37

kamikala

Hi Paulchen,
mensch...wie hast du das gemacht? steht da irgendwie höhere physik dahinter? ;)
ich hab da gar keine formeln gefunden...versteckt was? ;)
das will ich jetzt aber mal wissen.
aber genauso sollt es sein...du bist ein schatz...*knutsch*
kamikala

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hurra...und geknutscht hat sie mich auch noch...

10.03.2004 13:36:21

P@ulchen

Hallo kamikala,
nur ein wenig mit VBA rumgewuselt... mit "Alt" und "F11" gelangst Du in den VBA-Editor. Dort findest Du den Code, der die kleinen Zaubereien ermöglicht...
Freut mich, dass ich Dir helfen konnte und noch mehr natürlich Deine nette Rückantwort!
See you
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !

AW: Hurra...und geknutscht hat sie mich auch noch...

10.03.2004 14:04:26

kamikala

wenn ich alt+f11 drücke wird alles markiert...aber kein vb.
wahrscheinlich, weil da ja nicht direkt excel geöffnet wird. vielleicht kannst du mir den code so aufschreiben? ist wirklich interessant. hab ja auch ein paar vb-kenntnisse, aber schon so lange nicht mehr gemacht, dass ich alles vergessen hab.
du hast da richtig ahnung ja? find ich cool...
und weil du so lieb bist, kriegst du noch n knutscher: *schmatz* ;)
gruß aus merseburg
kamikala

AW: Hurra...und geknutscht hat sie mich auch noch...

10.03.2004 15:02:46

P@ulchen

Wenn Du die Datei geöffnet hast, solltest Du über alt+f11 schon in den Editor wechseln können...
nix für ungut, hier mal der Code (im Tabellenblatt):

Public x, y As Integer
Public aktZellRow, aktZellCol As Integer
Private Sub Worksheet_Change(ByVal Target As Range)  'Bei Änderung der Zelle
'Wenn aktivierte Zelle in Spalte 2 oder 3 und ab Zeile 4 dann...
If aktZellCol > 1 And aktZellCol < 4 And aktZellRow > 3 Then
    'Wenn Eingang oder Ausgang ungleich "nichts" dann...
    If Cells(aktZellRow, 2) <> "" Or Cells(aktZellRow, 3) <> "" Then
        x = Cells(aktZellRow, 2)        'Variable x = Eingang
        y = Cells(aktZellRow, 3)        'Variable y = Ausgang
        Range(Cells(aktZellRow, 2), Cells(aktZellRow, 3)).ClearContents  'Eingang und Ausgang löschen
        If Cells(aktZellRow, 4) = "" Then Cells(aktZellRow, 4) = "0"
        Cells(aktZellRow, 4) = 0 + Cells(aktZellRow, 4) + x - y  ' Aktuell = Aktuell + Eingang(x) - Ausgang(y)
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  'Bei Zell-Aktivierung
aktZellRow = Target.Cells.Row               'Zeilennummer der aktivierten Zelle
aktZellCol = Target.Cells.Column            'Spaltennummer der aktivierten Zelle
End Sub

Code eingefügt mit Syntaxhighlighter 2.1

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !

Beliebteste Forumthreads (12 Monate)

Hallo P@ulchen!!! staun

Forumthread: Hallo P@ulchen!!! staun

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Forumthread: Hallo P@ulchen!!! *staun*

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Hallo P@ulchen!!! staun

Forumthread: Hallo P@ulchen!!! staun

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread