Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nach Action eine Zeile versetzen

Forumthread: Makro nach Action eine Zeile versetzen

Makro nach Action eine Zeile versetzen
07.09.2020 20:13:58
Jürgen
Hallo Guten Abend
habe eine Tabelle erstellt, Makros mit Rekorder, läuft alles so wie gewünscht.
Problem, wenn Makro ausgeführt wird, werden Daten in eine Zeile geschrieben,
bein Nächster Ausführung sollen die Werte erhalten bleiben und die Neue Werte eine Zeile tiefer eingsetzt werden, Das ganze Max 50 mal, wenn 50 mal erreicht werden dann MSG limit erreicht. die 50 sind in 2 Blöcken a25 aufgeteilt.
wäre super wenn mir jemand helfen könnte.
Vorab mal Danke
Gruss Jürgen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro nach Action eine Zeile versetzen
07.09.2020 20:18:48
Werner
Hallo,
erwartest du jetzt ernsthaft aufgrund deiner Beschreibung Hilfe?
Wie wäre es, wenn du deine Mappe mit dem Makro hier hochladen würdest.
Gruß Werner
AW: Makro nach Action eine Zeile versetzen
07.09.2020 20:28:26
Hajo_Zi
Hallo Jürgenb,
im Code fehlt
LoZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row+1

Anzeige
AW: Makro nach Action eine Zeile versetzen
07.09.2020 21:15:17
Jürgen
zur Erklärung;
in den Zelle G13:P13 werden Zahlen eingetragen,
Möglich 1 - 15
bei 1 wird immer 15 aufaddiert,"Bitte mal ausprobieren"
bei Größer 1 wird der Button Wechsel Aufnahme Spieler 2 gedrückt, "Bitte mal ausprobieren"
nach Action werden die Zellen E25;F25 und G17 gefüllt.
C25:F25 sollen stehen bleiben.bein neuer Action soll dann C26:F26 gefüllt werden usw.
Gruss
Anzeige
AW: Makro nach Action eine Zeile versetzen
07.09.2020 22:50:07
Werner
Hallo,
Sub Wechsel1()
Dim loLetzte As Long, boZweite As Boolean
ActiveSheet.Unprotect
loLetzte = Cells(Rows.Count, "D").End(xlUp).Offset(1).Row
If loLetzte = 50 Then
boZweite = True
loLetzte = Cells(Rows.Count, "I").End(xlUp).Offset(1).Row
End If
If loLetzte = 50 Then
MsgBox "Limit erreicht"
Exit Sub
End If
If Not boZweite Then
Cells(loLetzte, "D").Value = Cells(4, "AA").Value
Cells(loLetzte, "C").Value = Cells(13, "T").Value
Else
Cells(loLetzte, "I").Value = Cells(4, "AA").Value
Cells(loLetzte, "H").Value = Cells(13, "T").Value
End If
Range("G13:P13,T13,G19:P19,T19,G11").ClearContents
Range("G19").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub
Sub Wechsel2()
Dim loLetzte As Long, boZweite As Boolean
ActiveSheet.Unprotect
loLetzte = Cells(Rows.Count, "N").End(xlUp).Offset(1).Row
If loLetzte = 50 Then
boZweite = True
loLetzte = Cells(Rows.Count, "S").End(xlUp).Offset(1).Row
End If
If loLetzte = 50 Then
MsgBox "Limit erreicht"
Exit Sub
End If
If Not boZweite Then
Cells(loLetzte, "N").Value = Cells(4, "AG").Value
Cells(loLetzte, "M").Value = Cells(13, "T").Value
Else
Cells(loLetzte, "S").Value = Cells(4, "AG").Value
Cells(loLetzte, "R").Value = Cells(19, "T").Value
End If
Range("G19:P19,G17,T19,G13:P13,T13").ClearContents
Range("G19").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub
Gruß Werner
Anzeige
AW: Makro nach Action eine Zeile versetzen
08.09.2020 11:03:06
Jürgen
Hallo Werner,
Danke für dein Hilfe,
genau so wollte ich es, musste nur noch Fokus neu setzen und noch die übernahme der Rest Bälle, hab sogar ich hin bekommen.
ich bräuchte noch einen Schutz, wenn der Erste spieler eingtragen wird, sollen die Schaltflächen
spieler 1 15,23,24,25 inaktiv ,"Wechsel aufnahme Sieler 2 und die 3 Foul schaltflächen 1,17,18,19 aktiv"
spieler 2 1,17,18,19 inaktiv, "Wechsel aufnahme Sieler 1 und die 3 Foul schaltflächen 15,23,24,25 aktiv"
Schaltflächen 16,26 immer aktiv.
kann man die max 50 auch variabel machen. wenn in P2 20 steht ist 20 max.
das wäre noch das Sahnehäubchen.
nochmals vielen Dank.
Gruss Jürgen
Anzeige
AW: Makro nach Action eine Zeile versetzen
08.09.2020 12:09:05
Werner
Hallo,
hier mal deine Beispielmappe zurück. Ich habe die entsprechenden Button durch aktive X Buttons ersetzt. Bei denen gibt es die Eigenschaft enabled true bzw. false.
Deine Makros zum Spielerwechsel mußt du halt durch die neuen Makros ersetzen.
Für das Weitere habe ich im Moment keine Zeit - mach ich dann vielleicht heute abend.
https://www.herber.de/bbs/user/140120.xlsm
Gruß Werner
Anzeige
jetzt der Rest
08.09.2020 21:30:54
Werner
Hallo,
hier deine Datei, mit dem "Bezug" zur Zelle P2.
Deine Makros habe ich mal überarbeitet. Die ganze Selektiererei ist unnötig.
https://www.herber.de/bbs/user/140137.xlsm
Gruß Werner
AW: jetzt der Rest
08.09.2020 23:06:39
Jürgen
Hallo Werner,
vielen Dank, ich bin hin weg.
Funkt super
Gruss Jürgen
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
08.09.2020 23:31:08
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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