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, 880 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 ..
Ähnliche Inhalte
Microsoft Office
gelöst Excel Online Datum (10)

Frage von MegaGiga zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA In Userform Maske Text nach Eingabe löschen (1)

Frage von kluthi69 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Tabelle nach Spalte sortieren und Daten auf Tabellenblätter separieren (4)

Frage von Fastinator zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel: Wert aus mehreren Zeilen vergleichen (2)

Frage von Nicolaas zum Thema Microsoft Office ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(13)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Batch & Shell
Skripterstellung Lehrling (22)

Frage von 133119 zum Thema Batch & Shell ...

Windows Userverwaltung
gelöst Wie verfahrt Ihr mit den Windows-Benutzerkonten und -dateien von ausgeschiedenen Mitarbeitern? (14)

Frage von Bl0ckS1z3 zum Thema Windows Userverwaltung ...

Exchange Server
Microsoft Exchange Weiterleitung mit anderer primären E-Mail Adresse (14)

Frage von Rene12345 zum Thema Exchange Server ...

LAN, WAN, Wireless
Devolo DLAN 500 pro Wireless+ (13)

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