Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA in Excel, Einträge von diversen Zellen löschen

Frage Microsoft Windows 7

Mitglied: dawatec

dawatec (Level 1) - Jetzt verbinden

02.06.2014, aktualisiert 13:36 Uhr, 1723 Aufrufe, 2 Kommentare

Hallo

Bin neu im Forum und habe gleich eine (für mich) happige Aufgabe

Ich habe ein Aufnahmeblatt geschaffen, bei dem ich für den Neueintrag einen Button haben möchte, mit dem ich alle Eintragungen (ungesicherte Felder) löschen kann.

Hat mir jemand einen guten Tip oder gar eine Lösung?

LG
cuba
Mitglied: colinardo
02.06.2014, aktualisiert um 13:13 Uhr
Hallo cuba, Willkommen auf Administrator.de!
Kein Problem mit einem kleinen VBA-Makro:
Du markierst die zu löschenden Zellen und vergibst den Zellen einen Namen (Tab > Formeln > Namen definieren), und dann kannst du den Inhalt aller zugeordneten Zellen so mit VBA löschen
01.
Sub LöscheBereich() 
02.
  Range("DerNameDeinerZellen").ClearContents 
03.
End Sub
wenn man einen bestimmten Bereich auf Zellen überprüfen möchte ob die Zelle bearbeitbar ist oder nicht und dann diese zu löschen, ginge dies z.B. so:
01.
Sub LöscheFreigegebeneZelleninBereich() 
02.
    Dim cell As Range 
03.
    For Each cell In Worksheets(1).Range("A1:B10") 
04.
        If Not cell.Locked Then 
05.
            cell.ClearContents 
06.
        End If 
07.
    Next 
08.
End Sub
Hier wird z.B. der Bereich A1:B10 im ersten Arbeitsblatt auf bearbeitbare Zellen überprüft, und deren Inhalt dann gelöscht.

Grüße Uwe
Bitte warten ..
Mitglied: colinardo
02.06.2014, aktualisiert um 13:36 Uhr
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

VB for Applications
Bilder vom LDAP in VBA - Excel (3)

Frage von Roadrunner777 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...