Office: (Office 2016) Anfrage VBA Script: Zellenwert mit Button auf Inhalt prüfen und Wert übertragen

Hallo zusammen,

ich hätte die Bitte ob mir jemand ein VBA Script in Excel erstellen kann. Die Aufgabenbeschreibung erläutere ich am besten anhand eines Beispiels:



Wenn in Spalte B eine Zelle eine Zahl enthält, dann soll der Wert in Zelle F2 in die nebenstehende Zelle in Spalte C übernommen werden. Ist eine Zelle in Spalte B leer, so soll die nebenstehende Zelle in Spalte C ebenfalls leer bleiben.

Das alles soll mit dem Button "Übertrage Stand IST" realisiert werden.

Vielen Dank im Voraus! :)

MfG, rockxique.

 

Hi,

das kannst du mit folgendem Code realisieren:

Code:

Sub Eintragen()
    Dim rngZelle As Range
    ' 2. Spalte der Tabelle enthält Daten
    If Application.Count(ActiveSheet.ListObjects(1).DataBodyRange.Columns(2)) > 0 Then
        ' Schleife über alle Zellen der Spalte B der Tabelle welche einen Wert enthalten
        For Each rngZelle In ActiveSheet.ListObjects(1).DataBodyRange.Columns(2).SpecialCells(xlCellTypeConstants)
            ' in Zelle rechts neben laufender Zelle Wert aus F1 eintragen
            rngZelle.Offset(0, 1) = Range("F1")
        Next rngZelle
    End If
End Sub

Bis später,
Karin

 

Funktioniert perfekt!

Vielen lieben Dank!

LG, rockxique

 

Moin!
Ich bin ja durchaus ein VBA-Fan.
Hier erschließt sich mit die Notwendigkeit aber nicht!
Das ist doch eine ganz simple Formel in C2.
=WENN(ISTZAHL([@Zahl]);$F$2;"")
Die braucht auch nur in die erste Zelle eingetragen werden, die intelligente Tabelle sorgt für das automatische Ausfüllen.



Gruß Ralf

 

Hallo Ralf!

wenn sich deine Methode nun auch anhand der Betätigung eines Buttons realisieren ließe, wäre das natürlich ebenfalls eine sehr gute Lösung!

LG, rockxique

 

Hi,

du brauchst nicht beides - entweder Formel, dann wird der Inhalt von F2 sofort angezeigt. Das hat aber den Nachteil, dass bei einer Änderung des Inhalts von F2 ALLE Zellinhalte diesen geänderten Wert anzeigen.
Oder Code mit Button, dann wird der Inhalt von F2 erst dann eingetragen wenn du den Button betätigst. Du kannst den Code auch so abändern, dass nach Änderung des Zellinhaltes F2 dieser nur neben den Zellen eignetragen wird, die noch keinen Eintag haben:

Code:

        For Each rngZelle In ActiveSheet.ListObjects(1).DataBodyRange.Columns(2).SpecialCells(xlCellTypeConstants)
            ' in Zelle rechts neben laufender Zelle Wert aus F1 eintragen wenn noch kein Eintrag vorhanden
            If rngZelle.Offset(0, 1) = "" Then rngZelle.Offset(0, 1) = Range("F1")
        Next rngZelle

Bis später,
Karin