Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Makro kopieren





Frage

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 1 von Hajo_Zi

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

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

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

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

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

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

Hallo Johannes,

schreibe statt

.Range("Q4:R4").ClearContents

.Range("Q4:R5").ClearContents

Gruß Hajo

Antwort 8 von hotelfirst

Hallo Hajo,

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

Gruss
Johannes

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: