VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Leere Zellen nicht berücksichtigen	27.09.2017 07:01:17	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:04:16	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:06:17	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:27:37	Gast70117
Leere Zellen nicht berücksichtigen	27.09.2017 09:03:43	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 09:18:16	Gast272
@Gast272	27.09.2017 09:26:22	Gast70117

Ansicht des Beitrags:

Von:
Gast70117

Datum:
27.09.2017 07:27:37

Views:
659

Rating:

Antwort:

Thema:
Leere Zellen nicht berücksichtigen

Option Explicit
'um Werte aus einer Spalte (F) in andere Zellen zu kopieren nutze ich ein Makro
'Leider fehlt mir das fortgeschrittene VBA Wissen um eine Ausnahme zu definieren
'Es sollen keine Zellen in Spalte F berücksichtigt werden die leer sind
'Ich hatte gehofft das geht mit der "If Then" Funktion,
'leider scheitere ich da aber dran


Sub WerteHinzufuegen()

     Range("H2:H150").ClearContents
     Range("F2:F150").Copy
     Range("H2:H150").PasteSpecial _
     Paste:=xlPasteValues, Operation:=xlAdd
     Range("I2:I150").PasteSpecial _
     Paste:=xlPasteValues, Operation:=xlAdd
     Range("K2:K150").PasteSpecial _
     Paste:=xlPasteValues, Operation:=xlAdd
     Range("F2:F150").ClearContents
     Application.CutCopyMode = False
     Application.ScreenUpdating = True
     
         
 End Sub
 
Sub SchleifeZumzum()
Dim Rng As Range, c As Range

Application.ScreenUpdating = False

   Set Rng = Range("F2:F150")
   For Each c In Rng
      If c.Value <> "" Then
         c.Offset(, 2).Value = c.Value 'H
         c.Offset(, 3).Value = c.Value 'I
         c.Offset(, 5).Value = c.Value 'K
         c.ClearContents
      End If
   Next c
   
Application.ScreenUpdating = True
 
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Leere Zellen nicht berücksichtigen	27.09.2017 07:01:17	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:04:16	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:06:17	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 07:27:37	Gast70117
Leere Zellen nicht berücksichtigen	27.09.2017 09:03:43	Mo
Leere Zellen nicht berücksichtigen	27.09.2017 09:18:16	Gast272
@Gast272	27.09.2017 09:26:22	Gast70117