Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Macro funzt ! aber nicht richtig :-(

Macro funzt ! aber nicht richtig :-(
27.11.2003 23:52:29
Gery
Hallo Spezialisten
ich hab durch Eure hilfe dieses Macro bekommen, leider macht es nicht ganz das was es soll. Schade !
ich habe die spalte R und T in Euro formatiert es werden aber nur VOLLE EURO ausgelesen z.B. eingabe in R3 1,5 ausgelesen wird 1 warum ?
Da ich von Macro nichts verstehe benötige ich Hilfe.
Vielen Dank im voraus
Gruß Gery


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$R$3" Then
Range("T3").Value = Range("T3").Value + Val(Target)
End If
If Target.Address = "$R$4" Then
Range("T4").Value = Range("T4").Value + Val(Target)
End If
............ ca 45 mal für nächste zeilen ................
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 00:00:55
K.Rola
Hallo,

den Code kannst du unmöglich von einem Spezialisten haben.
Ist der Abstand(R3 - T3) immer gleich?

Gruß K.Rola
AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 00:07:28
Gery
Ja ist gleich
AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 00:13:22
Gery
Hallo KRola geht das dann so ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range(Cells(3, 16), Cells(45, 16))) Is Nothing Then
Cells(Target.Row, Target.Column + 1).Value = Cells(Target.Row, Target.Column + 1).Value + Target.Value
End If
End Sub

AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 00:21:00
Gery
sorry habe frühschicht muss schluss machen gn8
gruß gerhard
AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 00:25:15
PeterW
Hallo Gery,

schlaf gut und träum von:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Not Intersect(Target, Range("R3:R40")) Is Nothing Then
Cells(Target.Row, 20) = Cells(Target.Row, 20) + Target
End If
End If
End Sub

Gruß
Peter
Anzeige
AW: Macro funzt ! aber nicht richtig :-(
28.11.2003 17:51:06
Gery
Danke Peter
Dieses Macro funzt richtig !
einfach Super
viele Grüße Gerhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige