Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 22:28:14
Formel Suche nur genauen Wert ausgeben
10.05.2024 19:12:28
Suche Formel für Monatsberechnung
10.05.2024 18:20:03
Status/Typ-Werte automatisch setzen in Abhängigkeit
10.05.2024 16:34:03
Excel auf Smartphone: Vorsicht beim Wischen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Daten aus einer Zelle kopieren

Bestimmte Daten aus einer Zelle kopieren
14.01.2006 03:56:02
Roland
Hallo Leute,
ich hab eine Liste die ich bearbeiten muss.
In dieser Liste sind auch Adressen hinterlegt, und zwar in der Form z.B.:
Haupstr. 34 80888 München
Alte Fabrik 121 A 60978 Stuttgart/ Germany
usw.
Jetzt ist meine Frage ob man die PLZ und die Stadt da irgendwie per VBA ausschneiden kann und sie in eine andere Spalte schreiben kann. bisher muss ich es immer mit auschneiden und einfügen machen. Leider sind meine Listen sehr lang und es raubt einem den letzten Nerv.
Hatte mir das in der Art gedacht das das Makro drüberläuft von hinten testet ob irgendeine Zahl 5 Stellig ist und ab der Stelle sie dann in Spalte XY (selbe Zeile) reinschreibt.
Ich hoffe Ihr versteht mich was ich meine.
cu
Roland

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Daten aus einer Zelle kopieren
ransi
hallo roland
zumindest für die sache mit der zahl hab ich was:
Diesen code in ein standardmodul:


Option Explicit
Public Function splitzahl(zelle As Range) As String
Dim a As Variant
Dim i As Integer
a = split(zelle)
For i = 1 To UBound(a)
    If IsNumeric(a(i)) Then If Len(a(i)) = 5 Then splitzahl = a(i)
Next
End Function


benutzt wird er so:
Tabelle1
  
 AB
1Haupstr. 34 80888 München80888
2Alte Fabrik 121 A 60978 Stuttgart/ Germany60978
Formeln der Tabelle
B1 : =splitzahl(A1)

B2 : =splitzahl(A2)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

ransi


		
                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Bestimmte Daten aus einer Zelle kopieren
                                            

                                

                                            ransi
                                    

            

        

        

                            
hallo roland

zumindest für die sache mit der zahl hab ich was:

Diesen code in ein standardmodul:






Option Explicit

Public Function splitzahl(zelle As Range) As String

Dim a As Variant

Dim i As Integer

a = split(zelle)

For i = 1 To UBound(a)

    If IsNumeric(a(i)) Then If Len(a(i)) = 5 Then splitzahl = a(i)

Next

End Function






benutzt wird er so:


Tabelle1
  
 AB
1Haupstr. 34 80888 München80888
2Alte Fabrik 121 A 60978 Stuttgart/ Germany60978
Formeln der Tabelle
B1 : =splitzahl(A1)

B2 : =splitzahl(A2)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

ransi


		
                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Bestimmte Daten aus einer Zelle kopieren
                                            

                                

                                            ransi
                                    

            

        

        

                            
Hallo roland

für die städte gehts so:

Code ins selbe Modul wie eben.






Public Function splitstadt(zelle As Range)

    Dim a As Variant

    Dim i As Integer

a = split(zelle)

For i = 1 To UBound(a)

    If IsNumeric(a(i)) Then

        If Len(a(i)) = 5 Then

            splitstadt = Right(zelle, Len(zelle) - InStr(1, zelle, a(i)) - 5)

            Exit Function

        End If

    End If

Next

End Function






und aufruf so:


Tabelle1
  
 ABC
1Haupstr. 34 80888 München80888München
2Alte Fabrik 121 A 60978 Stuttgart/ Germany60978Stuttgart/ Germany
Formeln der Tabelle
B1 : =splitzahl(A1)

C1 : =splitstadt(A1)

B2 : =splitzahl(A2)

C2 : =splitstadt(A2)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

ransi


		
                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Bestimmte Daten aus einer Zelle kopieren
                                            

                    

                                                    14.01.2006 10:21:31
                                            

                                

                                            Sigi
                                    

            

        

        

                            
Hallo Roland,

ich hab' da eine VBA-Funktion gefunden, die dir in den meisten Fällen helfen sollte.

Den Rest musst du dann händisch nachbearbeiten. Ich hoffe du kannst trotz "VBA nein"

mit der Funktion umgehen. (Modul anlegen, Funktion aus Forum kopieren u. ins Modul

einfügen, in Excel mit dem Funktionsassistenen aufrufen)

Function TrennPLZOrt(Anschrift As String) As String
Dim Txt As String
Dim LandKZ As Variant
Dim Zeichen As String
Dim Pos As Long
Dim i As Long
Dim z As Long
Application.Volatile
If WorksheetFunction.IsText(Anschrift) Then
LandKZ = Array("CH-", "NL-", "FL-", "DK-", "PL-", "TR-", "GR-", _
"D-", "A-", "F-", "I-", "B-", "L-", "P-", "E-", _
"N-", "S-", "H-", "R-")
Anschrift = Trim(Anschrift)
For i = 0 To 18
Pos = InStr(1, Anschrift, LandKZ(i))
If Pos > 0 Then
If Len(LandKZ(i)) = 2 Then
Txt = Right(Anschrift, Len(Anschrift) - Pos - 1)
Else
Txt = Right(Anschrift, Len(Anschrift) - Pos - 2)
End If
Exit For
End If
Next i
If Pos = 0 Then
For i = 1 To Len(Anschrift)
Zeichen = Mid(Anschrift, i, 1)
If Asc(Zeichen) > 47 And Asc(Zeichen) < 58 Then
z = z + 1
Else
z = 0
End If
If z = 4 Then
Txt = Right(Anschrift, Len(Anschrift) - i + 4)
Exit For
End If
Next i
End If
Else
Txt = ""
End If
TrennPLZOrt = Trim(Txt)
End Function


Gruß

Sigi

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Bestimmte Daten aus einer Zelle kopieren
                                            

                    

                                                    15.01.2006 01:33:38
                                            

                                

                                            Roland
                                    

            

        

        

                            
Hallo Sigi,

hallo ransi, 

vielen Dank für eure Vorschläge. Ich hab es jetzt getestet und was soll ich sagen.. ich bin begeistert von euren Vorschlägen. :) Hätte ich bloß früher hier nachgefragt. 

Hab von beiden die Versionen im Einsatz. Habe auch Datenbanken mit ausländischen Adressen, und da habe ich die Version von Sigi benutzt, da es mit der Version von ransi nicht immer klar ist ob das Deutsche oder eine ausländische Adresse ist. 

Aber wie gesagt , vielen vielen Dank für eure Mühe. 

Gruß

Roland

                    


            


    
    


            
    
            


    

        
                307 Forumthreads zu ähnlichen Themen
    

    
    

        

            
                
        

                           
                

                    

                        

                            
                            Zahlen aus Zelle auslesen
                        

                                                    

                                Timo
                            

                                            

                    

                                                

Hallo liebes Forum,

gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:



'123456 BLA --> 123456


Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?

Vielen Dank für die Unterstützung!

Timo




		
                    

                    

                        

                                                            14.08.2008 11:16:00
                                                    

                        

                            Thread-ID:
                            1001770
                        

                        

                            7
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                            

                    


    
Anzeige

    

        
                    
            
                
    



                

                    

                   
                
        

                           
                

                    

                        

                            
                            Zeichenkette in einer Zellesuchen
                        

                                                    

                                Gordon
                            

                                            

                    

                                                

Moin,

ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"

Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.

In der Zelle A2 stehen mehrere dieser Zeichenketten.  Diese sind in einer...
                    

                    

                        

                                                            26.09.2008 12:54:00
                                                    

                        

                            Thread-ID:
                            1012601
                        

                        

                            4
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            VBA FormulaArray nur 256 Zeichen
                        

                                                    

                                Werner
                            

                                            

                    

                                                

Hallo Zusammen,

ich möchte Formeln einer ziemlich umfangreichen Jahresarbeitsplanung in Excel, per VBA-Code korrigieren, da diese Datei(en) x-mal vervielfältigt und "beplant" sind. (über 100 Dateien mit mittlerweile über 28.000 Formeln je Datei)

Bei einer bestimmten Matrixformelgröße, ü...
                    

                    

                        

                                                            25.10.2008 21:25:22
                                                    

                        

                            Thread-ID:
                            1019276
                        

                        

                            9
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                            

                    


    
Anzeige

    

        
                    
            
                
    



                

                    

                   
                
        

                           
                

                    

                        

                            
                            Zelle des erstes Vorkommen eines Zeichens ausgeben
                        

                                                    

                                -s
                            

                                            

                    

                                                

Hallo Forum,

ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:

a|b|c|c|c|e|

Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.

Besten Dank!

-s

                    

                    

                        

                                                            07.12.2008 21:32:00
                                                    

                        

                            Thread-ID:
                            1030929
                        

                        

                            4
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Ausgabe der ersten 4 Zeichen aus anderer Zelle
                        

                                                    

                                Eddie
                            

                                            

                    

                                                

Mahlzeit an alle, 

habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird

Danke und gruß Eddie

                    

                    

                        

                                                            05.01.2009 14:39:00
                                                    

                        

                            Thread-ID:
                            1036984
                        

                        

                            4
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Anzahl der Zeichen in einer Zelle
                        

                                                    

                                Jan
                            

                                            

                    

                                                

Guten Morgen

Welcher Befehl zählt die Zeichen in einer Zelle?

Danke

Gruß Jan

                    

                    

                        

                                                            07.01.2009 08:38:00
                                                    

                        

                            Thread-ID:
                            1037436
                        

                        

                            3
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Nur bestimmte Zeichen in Zelle
                        

                                                    

                                wolle
                            

                                            

                    

                                                

Erstmal ein Hallo an Alle und alles gute in 2009!

Ich hätte folgende Frage:

Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
                    

                    

                        

                                                            09.01.2009 11:22:25
                                                    

                        

                            Thread-ID:
                            1038162
                        

                        

                            3
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            zählen bestimmter Zeichen in einer Zelle
                        

                                                    

                                Georg
                            

                                            

                    

                                                

Hallo Excel Welt,

wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?

Beispiel:

A2 = 12, 34, 2, 134

B2 = 3 (es sind drei Kommas in der Zelle A2)  = dafür benötige ich die Lösung

Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
                    

                    

                        

                                                            21.01.2009 16:03:36
                                                    

                        

                            Thread-ID:
                            1042267
                        

                        

                            6
                            Beiträge
                        

                    

                

                
                    

         

    


    

 

    
    
                        


    
Anzeige

    

        
                    
            
                
    



                


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                                    

                        

    

        
        Archiv - Verwandte Themen
    

    

        

            

                

                    Forumthread
                

                

                    Beiträge
                

            

        

        
                    

                

                    

                        
                        
                    

                

                

                    

                        
                            6
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            8
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            5
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            13
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            7
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            5
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            5
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            14
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            9
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            11