Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro für große Wenn-Dann Funktion

Makro für große Wenn-Dann Funktion
07.09.2004 10:15:31
Marcel
hallo zusammen,
ich habe mich gerade in excel an einer große wenn dann formel versucht. scheinbar sind aber wohl nur 6 bis 7 verschachtelungen erlaubt. ich brauche aber weit aus mehr.
hat jemand eine idee für ein makro, dass folgendes kann:
wenn a1 = a2 dann schreibe a3 in a4
wenn b1 = b2 dann schreibe b3 in a4
wenn c1 = b2 dann schreibe c3 in a4
usw....
danke schon mal :)
gruß´
marcel
Anzeige
Vergiss das Makro für große Wenn-Dann Funktion
07.09.2004 11:02:18
DieterB
Nimm doch Case Select.
Gruß
DieterB
AW: Makro für große Wenn-Dann Funktion
Marcl
Hallo Marcel,

Sub kopieren()
Range("a1").Select
Do While ActiveCell<>""
ac1=ActiveCell
ActiveCell.Offset(1,0).Select
ac2=Activecell
If ac1 = ac2 then
ActiveCell.Offset(1,0).Select
Range("A4") = Activecell
Activecell.Offset(1,-3):Select
Loop
End Sub

Kopiert immer den Wert aus Zelle 3 der aktuellen Spalte in A4, wenn Zelle 1 und 2 identisch sind. Ist Zelle 1 in ASpalte leer, endet das Makro
Gruß
Marcl
Anzeige
AW: Makro für große Wenn-Dann Funktion
Fehler
Du drückst Alt und F8.
gebe einen Buchstaben ein und gehe auf erstellen
Jetzt können Sub und End Sub gelöscht werden.
Auf der linken Seite sollte VBA Projekt(...) stehen, wenn nicht Alt und R drücken.
Nun suchst Du da den Namen Deiner Tabelle, in der die Daten geändert werden und gibst da meinen Code ein.
Sorry, hab mich verschrieben,
hier das richtige:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 And (Target.Column < 1 Or Target.Column > 300) Then Exit Sub
Range("a1").Select
'End If
' solange Zelle 1in Spalte nicht leer ist
Do While ActiveCell <> ""
ac1 = ActiveCell
ActiveCell.Offset(1, 0).Select
ac2 = ActiveCell
' wenn Zelle 1 gleich Zelle 2
If ac1 = ac2 Then
' kopiert Zelle 3in A4
ActiveCell.Offset(1, 0).Select
Range("A4") = ActiveCell
' nächste Spalte 1. Zelle auswählen
Else
ActiveCell.Offset(-2, 1).Select
End If
Loop
End Sub

Gruß
Marcl
Anzeige
AW: Makro für große Wenn-Dann Funktion
07.09.2004 11:53:37
Marcel
hallo marcl,
dankeschön! passt schon fast!
falls du zeit hast, geb mir mal deine e-mailadresse, dann würde ich dir mal was schicken...
hätte noch 1 - 2 fragen!
gruß
marcel
AW: Makro für große Wenn-Dann Funktion
Marcl
jo das
hardmarcsebay@aol.com
Gruß
Marcl

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige