Office: Zelle um 1 erhöhen

Hallo
Bitte um Makro Hilfe!

Das Makro sollte in die Aktive Zelle den Inhalt aus der
Nebenzelle links davon um 1 erhöhen!

Das erhöhen der Zahl um 1 ist immer die 14te Position!

Beispiel:

In der Zelle D4 steht z.B 2015-01-28_U_1.jpg
jetzte sollte das Makro in der Aktiven Zelle in der Nebenspalte E4
auf: 2015-01-28_U_2.jpg um 1 erhöht werden!

siehe beiligendes Beispiel!

Vielen Dank für die Hilfe
Gruß Derhard

:)

 

Hi Derhard,

und was für einen Sinn hat das?

Code:

 

Hallo Karin!
Vielen Dank für deine Hilfe
funktioniert super...

Ich habe das Makro noch so abgeändert, dass nicht nur der Eintrag auf
die Zelle D4 besteht sondern ein relativer Bezug
schau dir dazu das beiliegende Beispiel1 an.
Jetzt kann ich leichter und schneller die Kategorien meiner umfangreichen
Fotosammlung beschriften

LG
Derhard

 

Hallo Karin
ich habe jetzt mal das Makro in meine Foto-Datenbank übernommen.
Darin musste ich feststellen, dass ich die Funktion mit Doppelklick an einer
anderen Stelle schon verwende!
Wie müsste das Makro verändert werden, dass es nur mit einem Button-Klick
angesprochen wird?

Vielen Dank
Derhard

 

Guten Morgen!
Wenn Du nur 2015-01-28_U_1 in die erste Zelle einträgst, kannst Du ganz normal ziehen.
Excel zählt automatisch hoch.
Dann noch das benutzerdefinierte Zahlenformat ;;;@".jpg" vergeben und fertig, ganz ohne Makro.

*	D	E	F
4	2015-01-28_U_1.jpg	2015-01-28_U_2.jpg	2015-01-28_U_3.jpg

Zelle	Format	Wert
D4	;;;@".jpg"	2015-01-28_U_1
E4	;;;@".jpg"	2015-01-28_U_2
F4	;;;@".jpg"	2015-01-28_U_3

Gruß Ralf

 

Hi Derhard,

das hängt von deinem bereits vorhandenen Code ab, den ich nicht kenne. Eventuell kannst du ja prüfen, ob die Zelle ".jpg" enthält.

 

Hallo Karin

Das ist der Programm Code
Dieser sollte so abgeändert werden, dass das Makro nicht mit einem
Doppelklick sondern mit einem Button gestartet wird!

Gruß Derhard



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lngZaehler As Long
Dim strLinks As String


If Target.Address = ActiveCell.Address Then

If Target.Count = 1 Then
strLinks = Left(Target, InStrRev(Target, "_"))
lngZaehler = Val(Mid(Target, InStrRev(Target, "_") + 1)) * 1
Target.Offset(0, 1) = strLinks & lngZaehler + 1 & ".jpg"
Cancel = True
End If
End If
End Sub

 

Hi Derhard,

bis zu welcher Spalte soll denn gelaufen werden? Oder soll tatsächlich immer nur die 1 Zelle rechts daneben weitergeführt werden?

 

Moin!
Dies hier ist in einem Doppelklick-Event, nun ja, Verschwendung von Bildschirmtinte: *cool.gif*
Code:

(ist immer wahr)

Hast Du mal meinen Beitrag gelesen?

Gruß Ralf

 

Hallo Karin

immer nur die Zelle rechts daneben

Gruß
Derhard

 

Hurra!
Ich bin unsichtbar!
Und damit raus.

 

Hi Derhard,

ungetestet:

Code:

 

Hallo Karin
Vielen Dank
aber das Makro funktioniert nicht!

Das Makro wäre so wie im Beilspiel1 super aber es sollte nicht mit einem Doppelklick sondern mit einer Schaltfläche gestartet werden!

Gruß
Derhard

 

Hi Derhard,

so sollte es funktionieren:

Code:

Bedingung ist, der Cursor steht in der nächsten leeren Zelle rechts.

 

Hallo Karin

Danke für das Makro
Jetzt funktioniert es aber nur, wenn in der linken Zelle der Inhalt
mit 2015-01-28_U_ steht!

Wenn in der nächsten Zeile ein anderes Datum steht wie
2015-01-29_U_1 funktioniert es nicht!

Der Inhalt der linken Zelle ist in jeder Zeile variabel hat aber immer
das gleiche Längenformat mit 14 Zeichen und der Endung .jpg
Das heißt es sollte immer nur das 14. Zeichen das ist eine Nummer um 1
erhöht werden!
In dem Beispiel1 mit Doppelklick funktioniert es suber!

Gruß Derhard