online 1
gast (50)
Mitglied werden / Anmelden

Gruppen

Top Gruppen
Windows 7
Windows Vista
Windows XP
Textverarbeitung
Excel
DSL
Internet Browser
E-Mail/Outlook
Betriebsysteme
Windows classik
Linux
BS-Sonstige
Software
Datenbanken
Bildbearbeitung
Audio/mp3/Video
Security/Viren
SW-Sonstige
Hardware
Mainboard/CPU
Grafikkarten
Peripherie
Laptop/Notebook
HW-Sonstiges
Netzwerk
Telefon,ISDN,Modem
W-Lan
NW-Sonstiges
Programmierung
PHP,ASP,Perl...
Java,C++...
Webseiten/HTML
Sonstiges
PC-Sonstiges
Plauderecke
SN Intern
Test

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon hotelfirst vom 30.05.2019, 19:42 Options

Makro kopieren

Ich habe ein Makro geschrieben das mir in einer Tabelle den Inhalt einer bestimmeten Zeile auf 5 Blättern löscht. Ich möchte das aber in der nächsten Zeile auch verwenden. Muss ich 200 mal das gleiche Makro schreiben?
Wer kann mir helfen?


Antwort schreiben

Antwort 1 von Hajo_Zi vom 30.05.2019, 20:00 Options

Hallo Unbekannter,

ich vermute mal Nein. Da ich es aber ablehne über das Internet auf fremde Rechner zu schauen, kann ih deinen Code nicht sehen.

Gruß Hajo

Sieht ein Beitreag mit Anrede und Gruß nicht persönlicher aus. Hier Antworten Menschen und keine Maschinen.

Antwort 2 von Hotelfirst vom 30.05.2019, 20:08 Options

Hallo Hajo,

natürlich hast Du recht mein Name ist Johannes aus Österreich.
Sorry
nachfolgen der Code

Sub Mitarbeiter_löschen()
''''Sub Meldung2()
Rueckfrage = MsgBox("Wollen Sie den Mitarbeiter wirklich löschen? - Die Löschung kann nicht Rückgängig gemacht werden!!!!", vbYesNo, _
"Mitarbeiter löschen")
If Rueckfrage = vbYes Then

Else
Exit Sub
End If
' Mitarbeiter_löschen Makro
' Makro am 29.05.2007 von Johannes Mauthe aufgezeichnet
'

'
Range("A4").Select
Selection.ClearContents
Range("B4").Select
Selection.ClearContents
Range("C4").Select
Selection.ClearContents
Range("D4").Select
Selection.ClearContents
Range("E4").Select
Selection.ClearContents
Range("F4").Select
Selection.ClearContents
Range("H4").Select
Selection.ClearContents
Range("I4").Select
Selection.ClearContents
Range("J4").Select
Selection.ClearContents
Range("K4").Select
Selection.ClearContents
Range("L4").Select
Selection.ClearContents
Range("M4").Select
Selection.ClearContents
Range("N4").Select
Selection.ClearContents
Range("O4").Select
Selection.ClearContents
Range("P4").Select
Selection.ClearContents
Range("R4").Select
Selection.ClearContents
Range("S4").Select
Selection.ClearContents
Range("T4").Select
Selection.ClearContents
Range("BU4").Select
Selection.ClearContents
Range("BV4").Select
Selection.ClearContents
Range("BW4").Select
Selection.ClearContents
Range("BX4").Select
Selection.ClearContents
Range("BY4").Select
Selection.ClearContents
Range("BZ4").Select
Selection.ClearContents
Range("CA4").Select
Selection.ClearContents
Range("CB4").Select
Selection.ClearContents
Range("CC4").Select
Selection.ClearContents
Range("CD4").Select
Selection.ClearContents
Range("CE4").Select
Selection.ClearContents
Range("CF4").Select
Selection.ClearContents
Range("CG4").Select
Selection.ClearContents
Range("CH4").Select
Selection.ClearContents
Range("H4").Select
Sheets("URLAUBSSTAND").Select
Range("E4").Select
Selection.ClearContents
Range("F4").Select
Selection.ClearContents
Range("H4").Select
Selection.ClearContents
Range("J4").Select
Selection.ClearContents
Range("K4").Select
Selection.ClearContents
Range("M4").Select
Selection.ClearContents
Range("N4").Select
Selection.ClearContents
Range("P4").Select
Selection.ClearContents
Range("Q4").Select
Selection.ClearContents
Range("S4").Select
Selection.ClearContents
Range("T4").Select
Selection.ClearContents
Range("V4").Select
Selection.ClearContents
Range("W4").Select
Selection.ClearContents
Range("Y4").Select
Selection.ClearContents
Range("Z4").Select
Selection.ClearContents
Range("AB4").Select
Selection.ClearContents
Range("AC4").Select
Selection.ClearContents
Range("AE4").Select
Selection.ClearContents
Range("AF4").Select
Selection.ClearContents
Range("AH4").Select
Selection.ClearContents
Range("AI4").Select
Selection.ClearContents
Range("AK4").Select
Selection.ClearContents
Range("AL4").Select
Selection.ClearContents
Range("AN4").Select
Selection.ClearContents
Range("AO4").Select
Selection.ClearContents
Range("AQ4").Select
Selection.ClearContents
Range("AR4").Select
Selection.ClearContents
Range("A4").Select
Sheets("KRANKENSTAND").Select
ActiveWindow.ScrollColumn = 89
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("Q4").Select
Selection.ClearContents
Range("R4").Select
Selection.ClearContents
Range("T4").Select
Selection.ClearContents
Range("U4").Select
Selection.ClearContents
Range("W4").Select
Selection.ClearContents
Range("X4").Select
Selection.ClearContents
Range("Z4").Select
Selection.ClearContents
Range("AA4").Select
Selection.ClearContents
Range("AC4").Select
Selection.ClearContents
Range("AD4").Select
Selection.ClearContents
Range("AF4").Select
Selection.ClearContents
Range("AG4").Select
Selection.ClearContents
Range("AI4").Select
Selection.ClearContents
Range("AJ4").Select
Selection.ClearContents
Range("AL4").Select
Selection.ClearContents
Range("AM4").Select
Selection.ClearContents
Range("AO4").Select
Selection.ClearContents
Range("AP4").Select
Selection.ClearContents
Range("AR4").Select
Selection.ClearContents
Range("AS4").Select
Selection.ClearContents
Range("AU4").Select
Selection.ClearContents
Range("AV4").Select
Selection.ClearContents
Range("AX4").Select
Selection.ClearContents
Range("AY4").Select
Selection.ClearContents
Range("BA4").Select
Selection.ClearContents
Range("BB4").Select
Selection.ClearContents
Range("BD4").Select
Selection.ClearContents
Range("BE4").Select
Selection.ClearContents
Range("BG4").Select
Selection.ClearContents
Range("BH4").Select
Selection.ClearContents
Range("BJ4").Select
Selection.ClearContents
Range("BK4").Select
Selection.ClearContents
Range("BM4").Select
Selection.ClearContents
Range("BN4").Select
Selection.ClearContents
Range("BP4").Select
Selection.ClearContents
Range("BQ4").Select
Selection.ClearContents
Range("BS4").Select
Selection.ClearContents
Range("BT4").Select
Selection.ClearContents
Range("BV4").Select
Selection.ClearContents
Range("BW4").Select
Selection.ClearContents
Range("BY4").Select
Selection.ClearContents
Range("BZ4").Select
Selection.ClearContents
Range("CB4").Select
Selection.ClearContents
Range("CC4").Select
Selection.ClearContents
Range("CE4").Select
Selection.ClearContents
Range("CF4").Select
Selection.ClearContents
Range("CH4").Select
Selection.ClearContents
Range("CI4").Select
Selection.ClearContents
Range("CK4").Select
Selection.ClearContents
Range("CL4").Select
Selection.ClearContents
Range("CN4").Select
Selection.ClearContents
Range("CO4").Select
Selection.ClearContents
Range("CQ4").Select
Selection.ClearContents
Range("CR4").Select
Selection.ClearContents
Range("CT4").Select
Selection.ClearContents
Range("CU4").Select
Selection.ClearContents
Range("CW4").Select
Selection.ClearContents
Range("CX4").Select
Selection.ClearContents
Range("CZ4").Select
Selection.ClearContents
Range("DA4").Select
Selection.ClearContents
Range("DC4").Select
Selection.ClearContents
Range("DD4").Select
Selection.ClearContents
Range("DF4").Select
Selection.ClearContents
Range("DG4").Select
Selection.ClearContents
Range("DI4").Select
Selection.ClearContents
Range("DJ4").Select
Selection.ClearContents
Range("DL4").Select
Selection.ClearContents
Range("DM4").Select
Selection.ClearContents
Range("DO4").Select
Selection.ClearContents
Range("DP4").Select
Selection.ClearContents
Range("DR4").Select
Selection.ClearContents
Range("DS4").Select
Selection.ClearContents
Range("A4").Select
Sheets("EINGABE DER MITARBEITER").Select
Range("A4").Select
End Sub

Hilft Du mir trotzdem?

Vielen Dank

Johannes

Antwort 3 von Hajo_Zi vom 30.05.2019, 20:37 Options

Hallo Johanes,

in VBA kann auf select verzichtet werden. Das System ist mir noch nicht klar. Es wird in jeder Tabelle ein anderer Bereich gelöscht.

Sub Mitarbeiter_löschen()
''''Sub Meldung2()
Rueckfrage = MsgBox("Wollen Sie den Mitarbeiter wirklich löschen? - Die Löschung kann nicht Rückgängig gemacht werden!!!!", vbYesNo, _
"Mitarbeiter löschen")
If Rueckfrage = vbNo Then Exit Sub
' Mitarbeiter_löschen Makro
' Makro am 29.05.2007 von Johannes Mauthe aufgezeichnet
'
'
Range("A4:F4").ClearContents
Range("H4:P4").ClearContents
Range("R4:T4").ClearContents
Range("BU4:CH4").ClearContents
Range("BV4").Select
With Sheets("URLAUBSSTAND")
.Range("E4:F4").ClearContents
.Range("H4").ClearContents
.Range("J4:K4").ClearContents
.Range("M4:N4").ClearContents
.Range("P4:Q4").ClearContents
.Range("S4:T4").ClearContents
.Range("V4:W4").ClearContents
.Range("Y4:Z4").ClearContents
.Range("AB4:AC4").ClearContents
.Range("AE4:AF4").ClearContents
.Range("AH4:AI4").ClearContents
.Range("AK4:AL4").ClearContents
.Range("AN4").ClearContents
.Range("AO4").ClearContents
.Range("AQ4:AR4").ClearContents
End With

With Sheets("KRANKENSTAND")
.Range("Q4:R4").ClearContents
.Range("T4:U4").ClearContents
.Range("W4:X4").ClearContents
.Range("Z4:AA4").ClearContents
.Range("AC4:Ad4").ClearContents
.Range("AF4:Ag4").ClearContents
.Range("AI4:Aj4").ClearContents
.Range("AL4:Am4").ClearContents
.Range("AO4:Ap4").ClearContents
.Range("AR4:AS4").ClearContents
.Range("AU4:Av4").ClearContents
.Range("AX4:Ay4").ClearContents
.Range("BA4:BB4").ClearContents
.Range("BD4:BE4").ClearContents
.Range("BG4:BH4").ClearContents
.Range("BJ4:Bk4").ClearContents
.Range("BM4:BN4").ClearContents
.Range("BP4:BQ4").ClearContents
.Range("BS4:BT4").ClearContents
.Range("BV4:Bw4").ClearContents
.Range("BY4:Bz4").ClearContents
.Range("CB4:CC4").ClearContents
.Range("CE4:Cf4").ClearContents
.Range("CH4:CI4").ClearContents
.Range("CK4:CL4").ClearContents
.Range("CN4:Co4").ClearContents
.Range("CQ4:CR4").ClearContents
.Range("CT4:Cu4").ClearContents
.Range("CW4:CX4").ClearContents
.Range("CZ4").ClearContents
.Range("DA4").ClearContents
.Range("DC4:DD4").ClearContents
.Range("DF4:DG4").ClearContents
.Range("DI4:Dj4").ClearContents
.Range("DL4:DM4").ClearContents
.Range("DO4:DP4").ClearContents
.Range("DR4:DS4").ClearContents
End With
End Sub

Gruß Hajo

Antwort 4 von jfdm@gmx.net vom 30.05.2019, 20:53 Options

Hallo Hajo,

Im ersten blatt wird in der zeile 4 die Felder zb. c,d,g, usw. gelöscht, am Blatt 2 in der Zeile 4 die Felder a,b,c,d usw. so sollte es bei 4 weiteren blättern gehen.
Hoffe ich habs verständlich erklärt.

Vielen Dank

Johannes

Antwort 5 von Hajo_Zi vom 30.05.2019, 20:55 Options

Hallo Johannes,

siehe Dir Deinen geposteten Code an. In jedem Blatt werden andere Bereiche gelöscht. Hast Du den falschen Code gepostet?

Gruß Hajo

Antwort 6 von hotelfirst vom 30.05.2019, 21:04 Options

Nein der funktioniert auch aber eben nur in der Zeile 4 Code auf allen blättern. aber ich bräuchte den Code eben auch für Zeile 5

Gruss Johannes

Antwort 7 von Hajo_Zi vom 30.05.2019, 21:08 Options

Hallo Johannes,

schreibe statt

.Range("Q4:R4").ClearContents

.Range("Q4:R5").ClearContents

Gruß Hajo

Antwort 8 von hotelfirst vom 30.05.2019, 21:11 Options

Hallo Hajo,

Vielen Dank für Deine Unterstützung ich versuchs!

Gruss
Johannes

Ähnliche Themen

Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop  24.11.2006 - 4092 Hits - 1 Antwort

Makro speichern
sonja23  29.07.2007 - 63 Hits - 14 Antworten

Aktuelles Tabellenblatt in Excel mit Makro kopieren
TR007  22.12.2007 - 165 Hits - 2 Antworten

Daten aus Excel nach Word kopieren, mit VBA
Saarbauer  07.11.2008 - 468 Hits - 3 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

 Tipp einschicken
 News einschicken
Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026