Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

=Länge() per Makro Textlänge ergänzen

Forumthread: =Länge() per Makro Textlänge ergänzen

=Länge() per Makro Textlänge ergänzen
amintire
Hallo alle zusammen,
benötige mal wieder die Hilfe der Excel Profis.
Und zwar habe ich eine Tabelle, da steht in der Zelle G4 ein Text drinnen.
In Zelle C4 steht eine Zahl.
In Zelle G4 soll der Text mit Zeichen ergänzt werden, sodass =Länge(G4) gleich C4 ist.
https://www.herber.de/bbs/user/73405.xls
Vielen Dank für Eure Hilfe
Lieben Gruß
Amina
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: =Länge() per Makro Textlänge ergänzen
05.02.2011 12:29:12
Reinhard
Hallo Amina,
reicht das nicht:
=G4&WIEDERHOLEN("x";C4-LÄNGE(G4))
Gruß
Reinhard
AW: =Länge() per Makro Textlänge ergänzen
05.02.2011 12:35:10
amintire
Hallo Reinhard,
sollte per Makro funktionieren und in der gleichen Zelle also G4 angepasst werden.
In G4 schreibe ich einen Text, klicke auf den Button "ergänzen" und der Text wird mit verschiedenen Zufallszeichen so ergänzt dass es die gleiche Länge hat wie auf Zelle C4 drauf steht.
Lieben Gruß
Amina
Anzeige
AW: =Länge() per Makro Textlänge ergänzen
05.02.2011 13:39:05
Josef

Hallo Amina,
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Const cstrSigns As String = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,1,2,3,4,5,6,7,8,9,0"

Sub ergaenzen()
  Dim intRnd As Integer, vntRnd As Variant
  Dim strTmp As String, intIndex As Integer
  
  vntRnd = Split(cstrSigns, ",")
  
  Randomize Timer
  
  With Sheets("Tabelle1")
    For intIndex = 1 To .Range("C4") - Len(.Range("G4"))
      
      intRnd = Int((UBound(vntRnd) + 1) * Rnd + 1)
      strTmp = strTmp & vntRnd(intRnd - 1)
    Next
    
    .Range("G4") = .Range("G4") & strTmp
  End With
End Sub


Gruß Sepp

Anzeige
AW: =Länge() per Makro Textlänge ergänzen
05.02.2011 14:28:48
Reinhard
Hallo Amina, 
Sub Ergaenzen()
Dim N As Integer
If Len(Range("G4").Value)

Gruß
Reinhard
AW: Vielen Dank
05.02.2011 14:29:45
amintire
Hallo alle zusammen,
vielen Dank für Eure Lösungsvorschläge.
Lieben Gruß
Amina
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige