Richtig Einfügen in Excel-VBA?

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

 Cells.EntireRow.Hidden = False

 If Range("E8").Value = "Rogo AC" Then

   Columns("U:AH").Hidden = True

   Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

   Columns("U:AH").Hidden = True

   Columns("V").Hidden = False

 End If

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

Answer 1

[Xandros0506]

der Sub Kopieren funktioniert nicht.

Damit ist Kopieren_speichern() gemeint?
Wo wird das denn aufgerufen? Von allein aktiviert sich die Sub nicht. Da muss schon irgendwo ein Aufruf erfolgen oder zumindest eine Verknüpfung als Macro an irgendeine Schaltfläche oder Aktion gebunden sein.

Wird das von nirgends aufgerufen, dümpelt der Code halt ungenutzt herum.

Comments

[86hesse]

Hallo Xandros0506,

eigentlich soll automatisch wenn in der Zelle AK27:37 das Ergebnis >1 die dort stehende Zahl kopiert und in M27:37 eingefügt werden.

Das ganze wird im Tabellenblatt 4 gemacht.

In Zelle AK27:37 ist eine Formel hinterlegt und Zelle M ist verbunden mit N.

Danke im Voraus