Office: (Office 2019) Prüfen und Verketten von Zellen mit Formeln als Inhalt

Sehr geehrte Damen und Herren,

ich möchte in einer Excel Tabelle ca. 72 Zellen miteinander verketten und prüfen, ob diese gefüllt sind, falls manche dieser Zellen leer sind sollen diese aus der Verkettung am Ende herausgenommen werden. Die Zellen die gefüllt sind bzw. einen Wert haben sollen in der Verkettung am Ende bleiben. Problematik ist die Prüfung da ich es nicht umgesetzte bekomme die Prüfung bei einer Leeren Zelle fortzuführen. Die Zusammensetzung am Ende (VERKETTEN) gestaltet sich meiner Meinung auch schwierig, da der Status der Zellen (Leer / Nicht Leer) zwischengespeichert werden muss.

Bitte da um Hilfe, kann auch ’ne komplette Überarbeitung der Formel sein.

Im Anhang ist eine Tabelle, wo die Grundformel zur Verkettung enthalten ist.

Bei Fragen stehe ich gerne zur Verfügung.

 

Moin

Schreibe mal bei Gelegenheit das Wunschergebnis in die Datei.

 

Habe jetzt in der zweiten Arbeitsmappe "Skript" in den Zeilen A17/A18 sozusagen das Ergebnis eingetragen. A17 ist vor der Veränderung und A18 ist so in etwa das Zielergebnis.

Zur Erklärung: die Punkte {9} {10} {20} sind auf der Ersten Armeitsmappe leer daher sollen diese aus der Verkettung entfernt werden und am ende soll dann der Befehl ohne die am anfang genannten Punkte zusammengesetzt sein. Im besten fall dann auch noch Funktionieren aber das ist dann mein Problem.

 

Hallo,

ich habe dir in der beiliegenden Datei eine benutzerdef. VBA-Funktion StringErzeugen(Bereich) in einem allgemeinen Codemodul eingefügt:

Code:

Option Explicit

Public Function StringErzeugen(rngZeile As Range, Optional Tr2$ = " ", Optional Tr1$ = " ") As String
  Dim S As String, Sp As Long
  Dim S1 As String, S2 As Variant
 
  S = ""
  With rngZeile
      For Sp = 1 To .Columns.Count Step 2
     
        S1 = .Cells(Sp): S2 = .Cells(Sp + 1)
        If Not IsEmpty(S2) Then
           S = S & Tr1 & S1 & Tr2 & S2
        End If
   
      Next Sp
  End With
 
  StringErzeugen = Mid$(S$, Len(Tr1) + 1)

End Function

Sie überprüft in dem übergebenen Zeilenbereich jede 2. Zelle, ob sie einen Inhalt hat.
Falls ja, wird der Inhalt der Zelle davor und der Inhalt dieser Zelle zusammen mit 2 Trennzeichen (=Leerzeichen) an den bisherigen String angefügt - ansonsten wird dieser Schritt übergangen.

Im Arbeitsblatt "Skript" kannst du in den Zellen A21, A22 und A23 sehen, wie eingesetzt wird.
Der Funktion können bis zu 2 Trennzeichen zusätzlich übergeben werden. Wie das dann aussieht, kannst du in Zelle A25 sehen.

 

Hallo,

nachträglich zu Posting #4 habe ich im Arbeitsblatt "Skript" in Zelle A29 eine VBA-freie Formellösung eingebaut. Sie hat allerdings eine Länge von 3322 Zeichen. Im Folgenden zeige ich dir nur den Anfang und das Ende der Formel. Der Rest dazwischen sieht aus wie der Formelteil vor/nach dem ...usw... Wie man sieht, lässt sich die Formel erheblich verkürzen, wenn man statt Arbeitsblatt 'Grundlage Skript' den Arbeitsblattnamen zB.auf 'Grd' umstellt.

=WENN(LÄNGE('Grundlage Skript'!B2);'Grundlage Skript'!A2&" "&'Grundlage Skript'!B2;"")
&WENN(LÄNGE('Grundlage Skript'!D2);" "&'Grundlage Skript'!C2&" "&'Grundlage Skript'!D2;"")
&WENN(LÄNGE('Grundlage Skript'!F2);" "&'Grundlage Skript'!E2&" "&'Grundlage Skript'!F2;"")
&WENN(LÄNGE('Grundlage Skript'!H2);" "&'Grundlage Skript'!G2&" "&'Grundlage Skript'!H2;"")
'.... usw. ...
&WENN(LÄNGE('Grundlage Skript'!BN2);" "&'Grundlage Skript'!BM2&" "&'Grundlage Skript'!BN2;"")
&WENN(LÄNGE('Grundlage Skript'!BP2);" "&'Grundlage Skript'!BO2&" "&'Grundlage Skript'!BP2;"")
&WENN(LÄNGE('Grundlage Skript'!BR2);" "&'Grundlage Skript'!BQ2&" "&'Grundlage Skript'!BR2;"")
&WENN(LÄNGE('Grundlage Skript'!BT2);" "&'Grundlage Skript'!BS2&" "&'Grundlage Skript'!BT2);"")

 

Vielen Dank für die Hilfe das ist genau das was ich gesucht hatte. Kann ich eigentlich davon eine Excel Vorlage (.xltx) erstellen die dieses VB-Modul beibehält?

Vermutlich wäre das mit Excel Funktionen selbst nicht möglich bzw. zu kompliziert gewesen richtig?

Werde mich jetzt auch etwas mehr mit Visual Basic beschäftigen da sich das anscheinend relativ nützlich macht.

 

Kannst bei Post #6 die Frage mit Excel ignorieren, die Seite war nicht aktualisiert. Nochmal wirklich danke das ist für mich fast wie Hexenwerk hier haha

 

Bräuchte bei einer kleinen Sache noch Hilfe.

Bei dieser Zeichenkette: "set /Setup/WLAN-Management/AP-Configuration/Accesspoints/ {1}" wird die Parameter Nr. {1} am Anfang mit einem Leerzeichen versehen, dafür das der Befehl funktioniert brauche ich den Anfang aber ohne Leerzeichen, hast du da eine Lösung für?

Versuche das mit Excel Formeln irgendwie auszubügeln, da ich Visual Basic nicht beherrsche.

 

Hallo,

also wenn ich das recht verstanden habe, brauchst du statt
der Zeichenkette "set /Setup/WLAN-Management/AP-Configuration/Accesspoints/ {1}..."
die Zeichenkette "set /Setup/WLAN-Management/AP-Configuration/Accesspoints/{1}..."

Die folgende VBA-Funktion erfüllt diesen Wunsch:

Code:

Option Explicit

Public Function StringErzeugen(rngZeile As Range, Optional Tr2$ = " ", Optional Tr1$ = " ") As String
  Dim S As String, Sp As Long
  Dim S1 As String, S2 As Variant
 
  S = ""
  With rngZeile
      For Sp = 1 To .Columns.Count Step 2
    
        S1 = .Cells(Sp): S2 = .Cells(Sp + 1)
        Select Case Sp
          Case 1, 3
            If Not IsEmpty(S2) Then
               S = S & S1 & Tr2 & S2
            End If
          Case Else
            If Not IsEmpty(S2) Then
               S = S & Tr1 & S1 & Tr2 & S2
            End If
        End Select
      Next Sp
  End With
 
  StringErzeugen = S

End Function

Die modifizierte Datei liegt bei. Im Arbeitsblatt "Skript" in den Zellen A21, A22 und A23 müsste die gewünschte Änderung aufscheinen.
Ebenfalls in den Zellen A27 und A28

 

Ja, ist genau das, was ich brauchte, super Datei, Danke schön.

Eine Sache ist mir jedoch aufgefallen: Der VBA-Code entfernt keine Zellen, in denen eine Excel Formel enthalten ist.
Bspw.

Code:

=WENN(Deploymentliste!E3="";"";GROSS(Deploymentliste!E3))

Diese Formel zieht aus einer anderen Tabelle die Informationen für die Parameter {1} {2} {3} und tauscht kleine Buchstaben durch große aus.

Wenn die Zelle, aus der die Informationen kommen, sollen leer ist, wird ein leerer String in die Zelle eingesetzt, da ich mit der Standardausgabe von Excel "0" nichts anfangen kann. (Weil weitere Formeln dann nicht gehen würden, etc.)

Im VBA-Code am Ende erhalte ich dann folgende Ausgabe:
Fehler ist Rot markiert.

Code:

set /Setup/WLAN-Management/AP-Configuration/Accesspoints/{1}  {2}  {3}  {4} DEFAULT {6} default {7} 2.4GHz {8} 5GHz..

"set /Setup/WLAN-Management/AP-Configuration/Accesspoints/{1} {2} {3} {4} DEFAULT {6} default {7} 2.4GHz {8} 5GHz.."

Gibt es eine Möglichkeit das der VBA-Code diese trotzdem entfernt?
Sry das ich mit so vielen Sachen komme und auch so Häppchenweise, mir fällt das meiste gerade erst auf.

 

Hallo,

aus diesem Grund habe ich die Not IsEmpty(S2)-Funktion eingesetzt. Ich habe sie jetzt ersetzt durch
Len(S2) And (S2 <> "0")
d.h. stehen jetzt in der String-Variablen S2 irgendwelche Zeichen drinnen und ist das dann ungleich dem Zeichen "0", dann soll die Verkettung zuschlagen.

Code:

Option Explicit

Public Function StringErzeugen(rngZeile As Range, Optional Tr2$ = " ", Optional Tr1$ = " ") As String
  Dim S As String, Sp As Long
  Dim S1 As String, S2 As String
 
  S = ""
  With rngZeile
      For Sp = 1 To .Columns.Count Step 2
      
        S1 = .Cells(Sp): S2 = .Cells(Sp + 1)
        Select Case Sp
          Case 1, 3
               If Len(S2) And (S2 <> "0") Then
                  S = S & S1 & Tr2 & S2
               End If
          Case Else
               If Len(S2) And (S2 <> "0") Then
                  S = S & Tr1 & S1 & Tr2 & S2
               End If
        End Select
      Next Sp
  End With
 
  StringErzeugen = S

End Function

Geänderte Datei liegt bei.