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

Excel Button

Frage Microsoft Microsoft Office

Mitglied: Florian86

Florian86 (Level 1) - Jetzt verbinden

30.12.2014, aktualisiert 14:09 Uhr, 863 Aufrufe, 5 Kommentare

Hallo,

https://drive.google.com/file/d/0BzQM-ZoFrfL8anhSYXVOQnYxeTg/view?usp=sh ...

kann ich wie im Download rot markiert per Button die Ziffern aller Leerzellen automatisch mit der
vorhergehenden füllen lassen?

Ist so etwas mit VBA möglich?

MfG

Florian86
Mitglied: Florian86
30.12.2014 um 13:46 Uhr
am Schluss steht immer Summe... dort könnt er dann aufhören....
Bitte warten ..
Mitglied: colinardo
LÖSUNG 30.12.2014, aktualisiert um 14:09 Uhr
Moin Flo,
z.B. so
01.
Sub FillWithLastValue() 
02.
    Dim ws As Worksheet, cell As Range, lastValue As Variant 
03.
    Set ws = ActiveSheet 
04.
    With ws 
05.
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row) 
06.
            If cell.Value <> "" Then 
07.
                lastValue = cell.Value 
08.
            Else 
09.
                cell.Value = lastValue 
10.
            End If 
11.
        Next 
12.
    End With 
13.
End Sub
oder etwas effektiver so
01.
Sub FillWithLastValue() 
02.
    Dim cell As Range 
03.
    With ActiveSheet 
04.
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeBlanks) 
05.
            On Error Resume Next 
06.
            cell.Value = cell.Offset(-1, 0).Value 
07.
        Next 
08.
    End With 
09.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: Florian86
30.12.2014 um 13:50 Uhr
ok Danke ich probiere es aus..

MfG

Florian86
Bitte warten ..
Mitglied: Florian86
30.12.2014 um 13:54 Uhr
zu funktioniert es auch...

- Spalte komplett markieren
- F5 drücken
- [Inhalte..]
- Leerzellen
- =B1 eintragen (Bezug auf die Zelle über der ersten leeren)
- Mit STRG+Rerturn abschliessen

deine Lösung probiere ich trotzdem noch.

MfG

Florian86
Bitte warten ..
Mitglied: colinardo
30.12.2014 um 13:58 Uhr
yip so geht's natürlich auch, aber wenn du schon nach VBA fragst
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (2)

Frage von Raptox zum Thema VB for Applications ...

Microsoft Office
Excel Zählewenn aus Formel Wert (2)

Frage von cberndt zum Thema Microsoft Office ...

Microsoft Office
PIVOT-CHART IN EXCEL 2010

Frage von MiSt zum Thema Microsoft Office ...

Viren und Trojaner
gelöst Word und Excel per Mail gesperrt - Alternative? (7)

Frage von Coreknabe zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
DSL, VDSL
gelöst DSL 200m verlängern (16)

Frage von Angela44 zum Thema DSL, VDSL ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
SBS 2011 Standard virtualisieren (11)

Frage von HeinrichM zum Thema Windows Server ...

Exchange Server
gelöst DHCP Sever MS Server 2012 Problem (10)

Frage von Florian86 zum Thema Exchange Server ...