Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife aber welche und wie?

Schleife aber welche und wie?
13.06.2016 13:01:13
Nermin
Hallo liebe Community,
ich habe folgendes Problem: ich versuche eine Schleife oder einen Code zu finden die/der es mir ermöglicht dass, wenn zb. in einer Spalte "Zucker" steht in der spalte davor "kg" oder analog in einer Spalte "Ei" steht, da in der Spalte davor "St" für Stück. Das soll die Programmierung am Besten bei jeder Eingabe automatisch ausführen. Ich habe es mit einer For each Schleife probiert, jedoch endete diese bei mir immer in einer endlos Schleife.
Wenn ihr da einen Tipp habt, wohin ich mich da orientieren könnte, wäre das schon super!
Freundliche Grüße,
Nermin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife aber welche und wie?
13.06.2016 13:21:36
UweD
Hallo
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
Dim SP%, Einheit$
SP = 2 ' Spalte B
If Not Intersect(Columns(SP), Target) Is Nothing And Target  "" Then
If Target.Count = 1 Then
Select Case Target.Value
Case "Ei", "Apfel", "Bohrmaschine" '...
Einheit = "St"
Case "Schlauch", "Seil", "Kabel" '...
Einheit = "m"
Case "Farbe", "Saft", "Milch" '...
Einheit = "l"
Case "Zucker", "Mehl", "Nudel" '...
Einheit = "kg"
Case "Klebeband" '...
Einheit = "Ro"
'case Weitere
'Einheit = "me"
Case Else
MsgBox Target & ": noch nicht zugeordnet"
End Select
Else
MsgBox "nur einzeln eintragen"
End If
Application.EnableEvents = False
Target.Offset(0, -1) = Einheit
End If
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Gruß UweD
Über Rückmeldungen würde ich mich freuen

Anzeige
AW: Schleife aber welche und wie?
13.06.2016 13:32:03
Nermin
Hallo UweD,
Hat super funktioniert! Vielen lieben Dank!
Freundliche Grüße,
Nermin

AW: gern geschehen owt
13.06.2016 14:31:11
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige