Supportnet / Forum / Tabellenkalkulation
Wenn Dann mit VBA
Frage
Hallo Excel Experten,
ich brauche mal wieder die Hilfe von Expeten zu einem Problem.
Gibt es eine Möglichkeit die Wenn Dann Funktion in VBA einzubinden?
Die Spalte "K" sollte immer automatisch ausgefüllt werden.
Ich hoffe ihr könnt mir weiterhelfen!
Gruß
fedjo
Wenn in Spalte E "05500458" Dann in Spalte K "VMO"
Oder in Spalte E "05500179" Dann in Spalte K "VMO"
Oder in Spalte E "06500013" Dann in Spalte K "ZGH"
Antwort 1 von Elefunty
du redest nur von Spalten...
sind die in der ganzen Spalter verteilt, oder in einer bestimmten Zelle?
Elefunty
sind die in der ganzen Spalter verteilt, oder in einer bestimmten Zelle?
Elefunty
Antwort 2 von Elefunty
oder steht in allen zellen der Spalte E etwas drinne und er soll die von oben nasch unten überprüfen???
Antwort 3 von JoeKe
Moin fedjo,
Option Explicit
Sub fedjo()
Dim Zelle As Range
For Each Zelle In Range(Cells(1, 5), Cells(Rows.Count, 5).End(xlUp))
If Zelle = "05500458" Or Zelle = "05500179" Then Cells(Zelle.Row, 11) = "VMO"
If Zelle = "06500013" Then Cells(Zelle.Row, 11) = "ZGH"
Next
End Sub
Gruß
JöKe
Option Explicit
Sub fedjo()
Dim Zelle As Range
For Each Zelle In Range(Cells(1, 5), Cells(Rows.Count, 5).End(xlUp))
If Zelle = "05500458" Or Zelle = "05500179" Then Cells(Zelle.Row, 11) = "VMO"
If Zelle = "06500013" Then Cells(Zelle.Row, 11) = "ZGH"
Next
End Sub
Gruß
JöKe
Antwort 4 von fedjo
Hallo Elefunty,
bei Eingabe in Spalte E (nächste freie Zelle) sollte in der gleichen Zeile in Spalte K (nächste freie Zelle) automatisch ausgefüllt werden.
Hallo JöKe,
dein Makro funktioniert so ganz prima, es sollte aber nach der Dateneingabe von bestimmten Zahlenn in Spalte E selbstständig ausgeführt werden.
Vielleicht hast da noch eine Idee?
Gruß
fedjo
bei Eingabe in Spalte E (nächste freie Zelle) sollte in der gleichen Zeile in Spalte K (nächste freie Zelle) automatisch ausgefüllt werden.
Hallo JöKe,
dein Makro funktioniert so ganz prima, es sollte aber nach der Dateneingabe von bestimmten Zahlenn in Spalte E selbstständig ausgeführt werden.
Vielleicht hast da noch eine Idee?
Gruß
fedjo
Antwort 5 von JoeKe
Hallo fedjo,
folgenden Code in das VBA-Projekt der Tabelle in der er ausgeführt werden soll:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target = "05500458" Or Target = "05500179" Then Cells(Target.Row, 11) = "VMO"
If Target = "06500013" Then Cells(Target.Row, 11) = "ZGH"
End Sub
Gruß
JöKe
folgenden Code in das VBA-Projekt der Tabelle in der er ausgeführt werden soll:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target = "05500458" Or Target = "05500179" Then Cells(Target.Row, 11) = "VMO"
If Target = "06500013" Then Cells(Target.Row, 11) = "ZGH"
End Sub
Gruß
JöKe
Antwort 6 von fedjo
Hi Jöke,
genauso habe ich mir das vorgestellt, einfach super.
Danke
Gruß
fedjo
genauso habe ich mir das vorgestellt, einfach super.
Danke
Gruß
fedjo
Antwort 7 von JoeKe
Hallo,
Quelle Wikipedia
Gruß
JöKe
Visual Basic for Applications (VBA) von Microsoft ist eine aus dem von Microsoft entwickelten Basic-Dialekt Visual Basic (VB) abgeleitete Skriptsprache, die zur Steuerung von Programmabläufen in den Microsoft Office-Programmen entwickelt wurde. VBA ist damit der Nachfolger der verschiedenen Makrosprachen in den MS Office-Anwendungen.
Quelle Wikipedia
Gruß
JöKe
Antwort 8 von fedjo
Hallo arne peterson,
VBA „Visual Basic for Applications“ ist eine Programmiersprache für Office-Programme Word, Excel und Access.
http://www.excelbeispiele.de/
Gruß
fedjo
VBA „Visual Basic for Applications“ ist eine Programmiersprache für Office-Programme Word, Excel und Access.
http://www.excelbeispiele.de/
Gruß
fedjo