VBA Excel Zellen ohne Wert nich auswählen

Diskutiere VBA Excel Zellen ohne Wert nich auswählen im Office Forum im Bereich Microsoft Community Fragen; Hallo werte Gemeinschaft Mein Problem: Ich habe Tabellen in welcher in einer Spalte Werte in verschiedenen Zeilen stehen können. Zelle mit...

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo werte Gemeinschaft


Mein Problem:

Ich habe Tabellen in welcher in einer Spalte Werte in verschiedenen Zeilen stehen können.

Zelle mit Inhalt sollen gefunden werden um die benötigten Werte zu übernehmen und dann das Blatt zu speichern.


Ich benötige einen Sub welcher mir nur Zellen mit Inhalt sucht.

Meine Variante das mit Farbe zu bewerkstelligen funktioniert in soweit eigentlich, bis auf das auch Zellen ohne Inhalt aber der gesuchten Farbe mit übernommen werden.

Ich brauche aber nur die welche auch einen Inhalt haben.

Hier mein Sub:

Sub LN_KV1()
Dim n%
Dim Zeilenzahl As Long ', LRow As Long

Application.ScreenUpdating = False
With Sheets(1)
'Zeilenzahl Blatt1
LRow = .Cells(.Rows.Count, "D").End(xlUp).Row
For n = LRow To 2 Step -1

ActiveSheet.Unprotect

If .Cells(n, 52).Interior.Color = RGB(112, 48, 160) Then 'Zellenfarbe AZ Lila

If Application.CountIf(.Range("AZ:AZ"), .Cells(n, "AZ")) = 1 Then

Sheets("LNKV").Cells(6, 4).Resize(1, 1).Value = .Range("C" & n).Value 'Anrede
Sheets("LNKV").Cells(7, 4).Resize(1, 1).Value = .Range("D" & n).Value 'Name
Sheets("LNKV").Cells(7, 14).Resize(1, 1).Value = .Range("AZ" & n).Value 'KVNr

End If
LN_KV2_nichtAusf?hren 'Aufruf von LN_Soz2 Sub
End If
'Stop
Next
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Thema:

VBA Excel Zellen ohne Wert nich auswählen

VBA Excel Zellen ohne Wert nich auswählen - Ähnliche Themen

Excel Makro_ Zeilen ein- & ausblenden: Hallo Ich habe ein bisschen ein grösseres Problem und bin mit probieren und durchlesen von etlichen Foren nicht zu einer Lösung gekommen...
Excel 365 VBA Code: Hallo Zusammen, ich bitte um Eure Hilfe. Ich habe einen älteren VBA Code für den Füllstand von Kugelbehältern, siehe unten, der unter Excel 2013...
[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1...
Loop erstellen: Hallo Community, Ich Habe ein Arbeitsblatt in dem in Spalte A eine unbestimmte Anzahl an Werten sind die aus anderen Arbeitsblättern gezogen...

Sucheingaben

vba .find wert aus formel

,

Rpoker chips

,

casinos in ct

,
poker king pro
, reno casi3no, aces poker, aces poke)r, casino in queens, casi9no in queens, poker mira, po.ker mira, california casino, california c3asino, foxwoods poker tournaments, poker chips, monarchs casi]no, palm springs casino, palm springs Gcasino, pokper outs, casino tropez, live holdem poker, live holdem pok[er, poker king texas holdem, polker king texas holdem, new online casinos
Oben