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, 867 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
Windows 10

Sticky Notes - Autostart unterbinden

Tipp von Pedant zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
gelöst 3 Excel Dateien, gleich umkodieren? (5)

Frage von Akeipra zum Thema Microsoft Office ...

Outlook & Mail
Outlook 2016 Excel Preview

Frage von ilsinger zum Thema Outlook & Mail ...

Microsoft Office
gelöst Excel VBA: Automatische Konvertierung von Textdatei (.txt) zu Exceldatei (.xlsx) (7)

Frage von Booster07 zum Thema Microsoft Office ...

VB for Applications
gelöst VB Skript Excel Datei (3)

Frage von Frager zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Base64 Decode (Batch,VBS) (26)

Frage von clragon zum Thema Batch & Shell ...

Flatrates
DeutschlandLAN der Telekom - welche internen IPs? (19)

Frage von qualidat zum Thema Flatrates ...

Linux
gelöst Schmaler Scrollbalken in Python-Anwendung (14)

Frage von indi955 zum Thema Linux ...