Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Erhöhung von Zellwerten mit führender 0

Betrifft: Erhöhung von Zellwerten mit führender 0 von: Andi
Geschrieben am: 17.08.2004 06:49:29

Morgen,

habe ein Problem bezüglich der Erhöhung von Zellwerten. Habe folgendes in den Spalten C-J stehen:

RR 01 / 04 - 06 / 04

Die Spalten habe ich als Text formatiert(wegen der führenden 0, die wichtig ist).
In der Spalte B soll die Stückzahl per Userform eingetragen werden.
Jetzt bräuchte ich ein Makro, welches automatisch die Werte hochzählt.

Bsp.: Stückzahl = 6 --> RR 07 / 04 - 12 / 04.


Geht so etwas? Hoffe schon.

Danke an alle, die sich mit meinem Problem beschäftigen.

Gruß Andi

  


Betrifft: AW: Erhöhung von Zellwerten mit führender 0 von: Andi
Geschrieben am: 17.08.2004 06:57:40

Habe jetzt die Zellen benutzerdefiniert mit 000 formatiert. Jetzt kann man rechnen...
Weiß jemand wie man das mit einem Makro lösen kann?
Gruß Andi


  


Betrifft: AW: Erhöhung von Zellwerten mit führender 0 von: Hans W. Herber
Geschrieben am: 17.08.2004 07:05:09

Hallo Andi,

der Befehl wäre:
Cells(iRow, 2).value = Cells(iRow, 2).value + Cdbl(TextBox1.Text)

wobei iRow der Zeilenzähler ist und die Werte in der UserForm-TextBox 1 stehen.

Gruss hans


  


Betrifft: AW: Erhöhung von Zellwerten mit führender 0 von: Andi
Geschrieben am: 17.08.2004 07:17:24

Danke für den Code. Jetzt bekomme ich es hin!
Gruß Andi


  


Betrifft: Noch eine Frage... von: Andi
Geschrieben am: 17.08.2004 07:20:39

Hi,

04 steht immer für das aktuelle Jahr. Gibts da auch ne Möglichkeit?
Irgendwie das Jahr "rauszuschneiden" aus Date?

Gruß Andi


  


Betrifft: AW: Noch eine Frage... von: Hans W. Herber
Geschrieben am: 17.08.2004 07:31:03

Hallo Andi,

mir ist nicht klar, wie der sich in einer Zelle befindende String mit dem Jahr lautet.

Wenn der String lautet:
/ 04 - 12 / 04

und die erste 04 das Jahr ist, das in das aktuelle Jahr geändert werden soll, hieße das:

Sub EditString()
   Dim sTxt As String
   sTxt = "/ 04 - 12 / 04"
   sTxt = "/ " & Format(Date, "yy") & " - 12 / 04"
   MsgBox sTxt
End Sub

Möglicherweise musst Du die Frage aber auch neu formulieren.

Gruss hans


  


Betrifft: AW: Noch eine Frage... von: Andi
Geschrieben am: 17.08.2004 07:36:50

Hallo Hans,

poste dir mal den Code, denn ich drück mich manchmal ein bischen blöd aus:

'Eintragen der Werte
Private Sub CommandButton1_Click()
On Error Resume Next
ErsteFreieA
z = ActiveCell.Row
Cells(z, 1).Value = TextBox1.Value
Cells(z, 2).Value = TextBox2.Value
Cells(z, 11).Value = TextBox3.Value

'Erhöhung der Werte über St.zahl in Textbox
Cells(z, 8).Value = (Cells(z - 1, 8).Value + CDbl(TextBox2.Text)) - 1
'Berechnung des ersten Wertes in Spalte D
Cells(z, 4).Value = Cells(z - 1, 8).Value + 1

'bleibt immer gleich
Cells(z, 3).Value = Cells(z - 1, 3).Value 'für HR
Cells(z, 5).Value = Cells(z - 1, 5).Value 'für /
Cells(z, 7).Value = Cells(z - 1, 7).Value 'für -
Cells(z, 9).Value = Cells(z - 1, 9).Value 'für /

End Sub


Das Jahr steht dann in Spalte F und J.
Nun soll einfach aus dem aktuellen Datum das Jahr im Format JJ herausgeschnitten werden.
Habe mal eine Aufzeichnung gemacht:

Sub Makro1()
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F9").Select
Selection.NumberFormat = "yy"
End Sub

Vielen Dank für deine Hilfe!
Übrigens hast du da ein super Forum geschaffen!

Gruß Andi


  


Betrifft: AW: Noch eine Frage... von: Hans W. Herber
Geschrieben am: 17.08.2004 07:42:18

... das war diese Passage:
Format(Date, "yy")

gruss hans


  


Betrifft: Danke! von: Andi
Geschrieben am: 17.08.2004 07:52:22

Gruß Andi


 

Beiträge aus den Excel-Beispielen zum Thema "Erhöhung von Zellwerten mit führender 0"