aktive Zelle um 1 erhöhen

Bild

Betrifft: aktive Zelle um 1 erhöhen
von: Gerhard
Geschrieben am: 20.02.2005 12:27:44
Hallo
Wie kann ich via VBA die Zelle B2 mit dem Inhalt "CH12" um 1 erhöhen, daß daraus "CH13" angezeigt wird?
Danke
Gerhard

Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Cardexperte
Geschrieben am: 20.02.2005 12:34:08
Hello Gehard, warum so kompliziert, muss es unbedingt ein Makro sein, reicht es nicht ganz einfach du schreibst in die Zelle 12 rein und in der Nachbarzelle dann =a1+1 und formatierst dann die Zelle benutzerdefiniert mit dem CH vorangestellt!
Gruss WS
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Gerhard
Geschrieben am: 20.02.2005 12:45:05
Hallo
Leider nein, wenn ich in meiner Arbeitsmappe mit einem Makro die letzte Tabelle kopiere, sollen die Chargennummern die in mehrerer Zellen auftreten um 1 erhöht werden.
Gruß
Gerhard
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Cardexperte
Geschrieben am: 20.02.2005 12:49:31
Hello, also wenn es unbedingt mit Makro gehen muss, dann eben mit Makro, hier nur der Weg, die Umsaetzung ist aber trivial,
1. nimm den Inhalt der Zelle (lese ihn aus)
2. schneid das CH mittels Textfunktion weg
3. wandle den übrig gebliebenen Text zu einer Zahl um
4. erhöhe diese um 1
5. füge alles wieder zusammen und fertig
Gruss WS
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Drazen
Geschrieben am: 20.02.2005 12:38:47
Hallo Gerhard,
wieso mit VBA, geht doch auch mit Formel:
setz in Zelle [B3] die Formel ="CH" & B2+1, rein dann müsste es gehen.
Grüsse
Drazen
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Gerhard
Geschrieben am: 20.02.2005 12:47:38
Geht das auch mit einem Makro und ohne Formel!
Gerhard
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: RainerK
Geschrieben am: 20.02.2005 13:07:56
Hallo Gerhard,
theoretisch so:

Sub Test()
Dim a As Integer
a = Mid(Cells(2, 2), 3, 5) * 1 + 1
Cells(2, 2) = Left(Cells(2, 2), 2) & a
End Sub

Voraussetzung hier: Es handelt sich immer um 2 Buchstaben vor der Chargennummer und die Nummer ist kleiner als 32767.
MfG Rainer
Bild

Betrifft: AW: aktive Zelle um 1 erhöhen
von: Gerhard
Geschrieben am: 20.02.2005 13:11:45
Vielen Dank Rainer
genau so...
Gruß
Gerhard
Bild

Betrifft: Danke für die Rückantwort o. T.
von: RainerK
Geschrieben am: 20.02.2005 13:12:42

 Bild

Beiträge aus den Excel-Beispielen zum Thema "aktive Zelle um 1 erhöhen"