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
1 Antwort
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.
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