negat. Zahl aus Zelle in Textbox und posit. machen

Forumthread: negat. Zahl aus Zelle in Textbox und posit. machen

30.06.2007 19:31:47

Peter

Hallo alle zusammen,
Wenn in der aktiven Zelle in Spalte 6 etwas drinnsteht, dann soll diese Zahl (sie ist dort immer negativ) in die Textbox "txtBetrag_Gesellschaft_Konto" übertragen werden. Das funktioniert auch!
Ich möchte zusätzlich, dass die Zahl in der Textbox positiv wird.
Mein Versuch funktioniert nicht!
Kann mir jemand helfen?
Danke im Voraus
Grüße aus Berlin
Mein Code:
If ActiveCell.Columns(6) 0 Then
txtBetrag_Gesellschaft_Konto.Value = ActiveCell.Columns(6) * -1
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: negat. Zahl aus Zelle in Textbox und posit. ma

30.06.2007 19:39:07

Beverly

Hi Peter,
versuche es mal im Prinzip so
TextBox1 = Range("A1") * (-1)
________________________________________

AW: negat. Zahl aus Zelle in Textbox und posit. machen

30.06.2007 19:41:44

Hajo_Zi

Hallo Peter,
If ActiveCell.Columns(6) 0 Then
txtBetrag_Gesellschaft_Konto.Value = Abs(ActiveCell)
obwohl ich im Code niemals mit ActiveCell arbeiten würde.

AW: negat. Zahl aus Zelle in Textbox und posit. ma

30.06.2007 20:01:00

Peter

Hallo Hajo,
die Zahl bleibt negativ!
Muß die Textbox vielleicht irgendwie für Zahlen formatiert werden?
Gruß
Peter

AW: negat. Zahl aus Zelle in Textbox und posit. ma

30.06.2007 20:05:16

Hajo_Zi

Hallo Peter,
ich bin eigentlich davon ausgegangen das dieser Code ohne Testung geht. Aber ich habe es jetzt getestet ud es wird mir eine Positive Zahl angezeigt.


Option Explicit
Sub peter()
Dim txtBetrag_Gesellschaft_Konto As String
txtBetrag_Gesellschaft_Konto = Abs(ActiveCell)
MsgBox txtBetrag_Gesellschaft_Konto
End Sub

Wobei ein Nachbau meist anders ist als das Original.
Gruß Hajo

AW: negat. Zahl aus Zelle in Textbox und posit. ma

30.06.2007 20:48:00

Peter

Danke Hajo, danke Gerd,
das Problem lag anderswo, mein Code funktioniert dann doch.
Grüße aus Berlin

AW: negat. Zahl aus Zelle in Textbox und posit. machen

30.06.2007 19:53:00

Gerd

Hallo Peter,
sowas?
If Cells(ActiveCell.Row, 6) 0 Then
txtBetrag_Gesellschaft_Konto.Value = CStr(Abs(Cells(ActiveCell.Row, 6)))
End If

AW: negat. Zahl aus Zelle in Textbox und posit. machen

30.06.2007 20:00:57

Hajo_Zi

Hallo Gerd,
warum Umwandlung in String? Es wird doch zu einem String sobald es in die TextBox geschrieben wird.
Gruß Hajo

AW: negat. Zahl aus Zelle in Textbox und posit. machen

30.06.2007 20:22:00

Gerd

Hallo Hajo,
weil ich mich sooo daran gewohnt habe. Bei anderen Datentypen scheint dies schon eine Rolle zu spielen.
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

negat. Zahl aus Zelle in Textbox und posit. machen

Forumthread: negat. Zahl aus Zelle in Textbox und posit. machen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

negat. Zahl aus Zelle in Textbox und posit. machen

Forumthread: negat. Zahl aus Zelle in Textbox und posit. machen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread