Thema Datum  Von Nutzer Rating
Antwort
Rot Schleifenbefehl Ausführen - Loop/Vorrollen
 22.11.2019 18:55:26 Raul
NotSolved
22.11.2019 23:58:36 Gast54908
NotSolved
23.11.2019 09:34:56 Raul
NotSolved
23.11.2019 19:09:26 Gast54908
NotSolved
23.11.2019 19:11:59 Gast54908
NotSolved
23.11.2019 20:13:14 Raul
NotSolved

Ansicht des Beitrags:
Von:
Raul		 Datum:
22.11.2019 18:55:26		 Views:
1630		 Rating:
     
Antwort:
  Ja
Thema:
Schleifenbefehl Ausführen - Loop/Vorrollen

Hallo zusammen, 

 

ich habe folgendes Problem: 

mein unten aufgeführter Code funktioniert nach der Aktivierung des Makro lediglich für eine Zeile (hier die Zeile 20). Ich würde ihn allerdings auch gerne in der nächsten Zeile verwenden - ich will also den unten stehenden (und funktionsfähigen) Code "vorrollen" in die nächste Zeile. Ich habe es bereits mit einigen Loop Funktionen versucht, scheitere allerdings immer wieder. Habt ihr eine Idee, wie sich der Code am besten "vorrollen" lässt , sodass er dynamisch funktioniert und bei erneuter Ausführung des Makros in die nächste Zeile springt?

 

Vorab vielen Dank für Eure Antwort! 

---

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Prüfe()
If ActiveSheet.Range("B20") = "" Then
MsgBox "Please Check Input Data.", vbOKOnly, "Mein Tool"
Else
Call Savepostings
End If
End Sub
 
Sub sperreZeile()
Dim rng As Range
Set rng = Range("A20:Y20")
'ab Punkt Value
'Hebt Blattschutz auf
ActiveSheet.Unprotect Password:="A"
'Setzt Zellfarbe auf grün (= Zelle gesperrt)
rng.Interior.Color = vbGreen
rng.Locked = True
ActiveSheet.Protect Password:="A", DrawingObjects:=True, _
        Contents:=True, Scenarios:=True, _
        userinterfaceonly:=True
'Aktiviert AutoFilter in Tabellenblatt
ActiveSheet.EnableAutoFilter = True
End Sub
 
Sub Savepostings()
If Cells(13, 2) = "ERROR" Then
MsgBox "Error - Eingabe Prüfen. Beträge sind lt. Checksumme ungleich", vbOKOnly, "Nachricht"
Else
MsgBox "File Status OK. Die Eingabe hat tatsächlich funktioniert.", vbOKOnly, "Nachricht"
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Call uebertragenameundzeit
Call sperreZeile
End If
End Sub
 
Sub uebertragenameundzeit()
'Verweis auf Tab in Spalte "Y" --> Trägt Name und Uhrzeit ein
Cells(20, 24) = printUserName
Cells(20, 25) = printTimeStamp
End Sub
 
Function printUserName() As String
'Gibt bzw. "Druckt"den Application.UserName aus
printUserName = Application.UserName
End Function
Function printTimeStamp() As String
'Definiert Zeitstempel als aktuelle Uhrzeit
printTimeStamp = Now()
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleifenbefehl Ausführen - Loop/Vorrollen
 22.11.2019 18:55:26 Raul
NotSolved
22.11.2019 23:58:36 Gast54908
NotSolved
23.11.2019 09:34:56 Raul
NotSolved
23.11.2019 19:09:26 Gast54908
NotSolved
23.11.2019 19:11:59 Gast54908
NotSolved
23.11.2019 20:13:14 Raul
NotSolved