Hallöchen!
Also vornweg, wahrscheinlich etwas wovor es jedem hier graust:
Ich habe noch nie in VB oder VBA Programmiert.
Jetzt gibt es aber nen problem und ich muss schnell nen kleines VBA/Excel Progrämmchen basteln.
Also hab ich mich sehr schnell eingelesen. Doch stehe ich vor nem Problem, wo ich nicht weiterkomme.
Wenn ich die Excel Mappe öffne, kann ich Start klicken und ein Fensterchen erscheint, welches mit fünf Textfeldern fünf Werte abfragt (unter anderem IP Adressen und Ports).
Wenn man auf weiter klickt, werden diese Werte in Zellen eingetragen, andere Zellen übernehmen diese Werte und basteln daraus Firewallregeln.
So, diese generierte Regel soll im selben Zug in ein drittes Blatt geschrieben werden, damit dieses Tabellenblatt später ausgedruckt werden kann.
bis hierhin klappt alles, nur wenn ich halt weiter klicke, schreibt er auf Tabellenblatt "Regeln" in die Zellen A1 bis E1 brav die Werte aus dem vorherigen Tabellenblatt, das Fenster bleibt aber auf und man hat so lange die Möglichkeit, Namen, IPs und Ports einzugeben, bis man Ende klickt.
Das heißt, jedesmal wenn man einen Durchgang vollendet hat und weiter klickt, wird eine Regel generiert, aber diese muss dann im Tabellenblatt "Regeln" in die nächste Zeile (also in die Zellen A2 bis E2) geschrieben werden und so weiter.
Dies ist also der Code, der sich dann hinter dem Button "weiter" verbrigt:
Der Zähler wird hochgezählt, da ich mir gedacht habe, dass damit später geschaut werden soll, ob man in die nächste Zeile muss.
So, hier ist Ende, weiß ich nicht weiter, da ich absolut keine Ahnung von VBA Syntax/Excel Möglichkeiten in diesem Bereich habe.
Ich hoffe mir kann geholfen werden...
Gruß
Myar
Also vornweg, wahrscheinlich etwas wovor es jedem hier graust:
Ich habe noch nie in VB oder VBA Programmiert.
Jetzt gibt es aber nen problem und ich muss schnell nen kleines VBA/Excel Progrämmchen basteln.
Also hab ich mich sehr schnell eingelesen. Doch stehe ich vor nem Problem, wo ich nicht weiterkomme.
Wenn ich die Excel Mappe öffne, kann ich Start klicken und ein Fensterchen erscheint, welches mit fünf Textfeldern fünf Werte abfragt (unter anderem IP Adressen und Ports).
Wenn man auf weiter klickt, werden diese Werte in Zellen eingetragen, andere Zellen übernehmen diese Werte und basteln daraus Firewallregeln.
So, diese generierte Regel soll im selben Zug in ein drittes Blatt geschrieben werden, damit dieses Tabellenblatt später ausgedruckt werden kann.
bis hierhin klappt alles, nur wenn ich halt weiter klicke, schreibt er auf Tabellenblatt "Regeln" in die Zellen A1 bis E1 brav die Werte aus dem vorherigen Tabellenblatt, das Fenster bleibt aber auf und man hat so lange die Möglichkeit, Namen, IPs und Ports einzugeben, bis man Ende klickt.
Das heißt, jedesmal wenn man einen Durchgang vollendet hat und weiter klickt, wird eine Regel generiert, aber diese muss dann im Tabellenblatt "Regeln" in die nächste Zeile (also in die Zellen A2 bis E2) geschrieben werden und so weiter.
Dies ist also der Code, der sich dann hinter dem Button "weiter" verbrigt:
Code:
Option Explicit
Dim mVariZahl As Double
Dim zaehler As Integer
Private Sub Weiter_Click()
zaehler = zaehler + 1
Worksheets(2).Select
Range("A2").Value = Instanz
Worksheets(2).Select
Range("B1").Value = SID
mVariZahl = Val(InzNr.Text)
Worksheets(2).Select
Range("C2").Value = mVariZahl
Worksheets(2).Select
Range("D2").Value = IP
mVariZahl = Val(IPHTTP.Text)
Worksheets(2).Select
Range("E2").Value = mVariZahl 'IPHTTP
mVariZahl = Val(IPHTTPS.Text)
Worksheets(2).Select
Range("F2").Value = mVariZahl 'IPHTTPS
If Sam = True Then
Worksheets(2).Select
Range("G2").Value = "X"
Else
Worksheets(2).Select
Range("G2").Value = ""
End If
Worksheets("Prozess").Range("A18:E18").Copy
Worksheets("Regeln").Select
Range("A1:E1").PasteSpecial Paste:=xlValues
End Sub
Der Zähler wird hochgezählt, da ich mir gedacht habe, dass damit später geschaut werden soll, ob man in die nächste Zeile muss.
So, hier ist Ende, weiß ich nicht weiter, da ich absolut keine Ahnung von VBA Syntax/Excel Möglichkeiten in diesem Bereich habe.
Ich hoffe mir kann geholfen werden...
Gruß
Myar