PDA

Vollständige Version anzeigen : Artikelnummer ändern


MasterP84
03.07.2014, 10:37
Guten Tag,
ich habe eine Zelle in der steht: 03 2024 03 0028.

Jetzt habe ich eine Auswahlliste für das Material. Je nachdem was ausgewählt wird. Beispiel 1.4571 oder 1.4301 usw. möchte ich gerne die beiden fett markierten Zahlen automatisch ändern lassen.

Geht das? Wenn ja, wie?

Vielen Dank für Eure Hilfe

Hajo_Zi
03.07.2014, 10:45
ja das geht.

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe…, Beispiel… wird eine vorhandene überschrieben.
Schaue hier, Dateiname im Beitrag (http://www.ms-office-forum.net/forum/showthread.php?t=58538&highlight=Beitrags-Nr#3)
das ist nun das Word -Forum, das gilt hier aber auch.
<b>Ein Bild in Excel geöffnet sieht anders aus als das Bild.</b>

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Hasso
03.07.2014, 15:59
Hallo MasterP84,möchte ich gerne die beiden fett markierten Zahlen automatisch ändern lassen.Und wie sollen die geändert werden? In deinem Beispiel (1.4571 oder 1.4301) sehe ich keinerlei Zusammenhang mit dem fetten 03.

Mein immer wieder gerne gegebener Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der das Problem und das gewünschte Ergebnis dargestellt werden, erhöht die Aussicht auf eine hilfreiche Antwort ungemein!
Ich habe keine Lust, nach deiner Fragestellung selbst eine Datei zu erstellen, wenn diese bei dir schon existiert.

MasterP84
16.07.2014, 14:21
Die Artikelnummer muss "einfach " nur geändert werden.

Wenn in der Auswahlliste 1.4571 ausgewählt ist, ist die Artikelnummer 03 2024 03 0028.

Wähle ich nun zum Beispiel 1.4301 muss sich die Artikelnummer wie folgt automatisch ändern 03 2024 01 0028

Hasso
16.07.2014, 14:28
Hallo MasterP84,

deine Beispieldatei erhellt das Problem keineswegs.Wenn in der Auswahlliste 1.4571 ausgewählt ist, ist die Artikelnummer 03 2024 03 0028.
Wähle ich nun zum Beispiel 1.4301 muss sich die Artikelnummer wie folgt automatisch ändern 03 2024 01 0028Das Prinzip verstehe ich nicht.

Und was ist mit der Artikelnummer, wenn ich in der Auswahlliste 1.404 wähle? Der Zusammenhang zwischen Auswahlliste und Artikelnummer ist völlig unklar, zumindest mir.

MasterP84
16.07.2014, 14:36
Wenn man 1.4404 wählt muss die 03 zu einer 02 werden.

Das Prinzip muss auch nicht verstanden werden. Das ist ein Boxsystem, wo gleiche Teile... nur mit anderem Material gefertigt werden. Beschrieben durch diese Box. Jede Auswahllistoption hat eine Artikeländerung zur Folge

Mc Santa
16.07.2014, 14:50
Wenn man 1.4404 wählt muss die 03 zu einer 02 werden.

Das Prinzip muss auch nicht verstanden werden. Das ist ein Boxsystem, wo gleiche Teile... nur mit anderem Material gefertigt werden. Beschrieben durch diese Box. Jede Auswahllistoption hat eine Artikeländerung zur Folge

Hallo,

ich lese hier schon eine Weile mit und auch mir ist das System unklar. Und damit es in eine Formel oder Makro geschrieben werden kann, muss auch das System klar sein.

VG

Hasso
16.07.2014, 15:11
Hallo MasterP84,

ich hoffe, ich habe dich jetzt richtig verstanden: Die zu ersetzende Zahlenfolge entspricht der Position in der Auswahlliste. Dazu habe ich nun folgende VBA-Funktion geschrieben:Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Dim intZeile As Integer
Dim strZiffer As String
Dim strArtikelnummer As String

If Target.Address = "$B$2" Then
Select Case Target
Case "1.4301"
strZiffer = "01"
Case "1.4571"
strZiffer = "02"
Case "1.4404"
strZiffer = "03"
Case "1.4828"
strZiffer = "04"
Case "1.4539"
strZiffer = "05"
End Select
For intZeile = 4 To 9
strArtikelnummer = Me.Range("C" & intZeile)
Mid(strArtikelnummer, 9, 2) = strZiffer
Me.Range("C" & intZeile) = strArtikelnummer
Next intZeile
End If

End Sub
Teste mal, ob das deinen Vorstellungen entspricht.