MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 15.10.2018, 16:05   #1
Gerd2018
Neuer Benutzer
Neuer Benutzer
Standard VBA - Zeile einfügen und Zelle auslesen

Hallo,

erstmal DANKE für EURE immer guten Lösungen.

Wie kann ich eine Zelle von rechts bis zum ersten Leerschritt auslesen.
Also, ab A3 (Ende unbekannt, d.h. kann unterschiedlich sein) steht z.B.:

K/Elektromaterial 98-0000005
K/Elektromaterial 98-0000005
K/Lack 98-0000014
K/Lack 98-0000014
L/Avola Futterleiste 616332
L/Brüstungskanal 70x170 847190
L/Brüstungskanal 70x170 847190

Jetzt möchte ich eine Spalte einfügen und wie ober gesagt die Zelle von rechts bis zum Leerschritt auslesen und in der neuen Spalte B wiedergeben.

MFG Gerd
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.10.2018, 17:03   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Halo Gerd,


Tabelle1
 AB
30K/Elektromaterial 98-0000005K/Elektromaterial
31K/Elektromaterial 98-0000005K/Elektromaterial
32K/Lack 98-0000014K/Lack
33K/Lack 98-0000014K/Lack
34L/Avola Futterleiste 616332L/Avola
35L/Brüstungskanal 70x170 847190L/Brüstungskanal
36L/Brüstungskanal 70x170 8471L/Brüstungskanal
37L/BrüstungskanalL/Brüstungskanal

verwendete Formeln
Zelle Formel Bereich N/A
B30:B37=WENNFEHLER(LINKS(A30;SUCHEN(" ";A30)-1);A30)  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit



Im Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist gerade online  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.10.2018, 18:20   #3
Scorefun
MOF Meister
MOF Meister
Standard

Zitat: von Hajo_Zi Beitrag anzeigen

Halo Gerd,

Lies doch bitte noch einmal die Frage, Hajo...

@Gerd:
http://www.excelformeln.de/formeln.html?welcher=108

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.10.2018, 10:33   #4
Gerd2018
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard VBA oder Makro

Hallo,

Danke für die Lösungsansätze.
Habe vergessen zu sagen, dass das ganze automatisch passieren soll, d.h. per Makro.

Also in Spalte "A" stehen Namen und Zahlen jeweils getrennt durch ein oder mehrere Leerschritte.
Ich möchte jetzt per Makro, dass eine Spalte "B" eingefügt, dass Spalte "A" von rechts bis zum ersten Leerschritt ausgelesen und in "B" ausgegeben wird.

DANKE Gerd
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.10.2018, 13:13   #5
Scorefun
MOF Meister
MOF Meister
Standard

Code:

Dim r As Long
Dim z As Long
    
'Letzte Zeile in Spalte A
z = Cells(Rows.Count, 1).End(xlUp).Row

'Spalte einfügen
Columns("B:B").Insert Shift:=xlToRight

'Schleife über Spalte A ab A3 und Ergebnis in Spalte B eintragen
For r = 3 To z
    Range("B" & r) = Mid(Range("A" & r), InStrRev(Range("A" & r), " ", , vbTextCompare) + 1)
Next

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.10.2018, 14:16   #6
Gerd2018
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Makro

Hallo Ralf,

DANKE ... funktioniert super.
Jetzt wäre noch supper, wenn in Spalte "A" (siehe Beispiel) K/... steht, dass das Makro in Spalte "B" auch Kleinmaterial schreibt.

K/Lack 98-0000015
K/Lack 98-0000015


DANKE Gerd
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.10.2018, 14:52   #7
Scorefun
MOF Meister
MOF Meister
Standard

Hä?
Dann hast Du doch wieder den kompletten Zell-Inhalt aus Spalte A

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 12:49   #8
Gerd2018
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Makro

Hallo Ralf,

nein, ich habe doch nur ein kleines Beispiel eingefügt. Es gibt noch ganz viele andere Werte.
Ich habe Kleinmaterial, dass vom Programm automatisch gerechnet wird und in Spalte "A" steht "Kleinmaterial".
Dann gibt es in Spalte "A" viele Positionen die Mit "K/" beginnen, da möchte ich das in Spalte "B" auch "Kleinmaterial" steht.
Ich will das später zusammen rechnen.

DANKE Gerd
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 16:16   #9
Scorefun
MOF Meister
MOF Meister
Standard

Das habe ich immer noch nicht verstanden

Zeige mal aussagekräftige Beispiele
Ausgangstext in A -> Wunschergebnis in B

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.10.2018, 10:34   #10
Gerd2018
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard VBA und Makro

Hallo Ralf,

Tabelle im Anhang... so bekomme ich es aus unsere EDV.
Zuerst lösche ich alles was nicht benötigt wird, füge eine Zeile ein und übernehme die Nummern (nach dem Text) aus Spalte.
Jetzt möchte ich, das alles was mit K/ beginnt ... in Spalte B auch als Kleinmaterial ausgewiesen wird und nicht die Nummer .. die da steht.

Hoffe, das ist verständlich ... wie ich es erklärte.

Habe eben noch einen Fehler gesehen.

SPalte "A" / Spalte "B"
L/Avola Futterleiste 0616332 / 616332
L/Avola Keillehre 00616338 / 616338

DAs Makro übernimmt die letzten Zeichen bis zum 1. Leerschritt von rechts aus Spalte A. Nur das es die Nullen nicht ... diese brauche ich auch.

DANKE ... für Deine Hilfe.

MFG Gerd
Angehängte Dateien
Dateityp: xlsm AA_Abgang E-Lager 1813_4.xlsm (56,2 KB, 4x aufgerufen)

Geändert von Gerd2018 (22.10.2018 um 11:39 Uhr).
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.10.2018, 19:15   #11
Scorefun
MOF Meister
MOF Meister
Standard

Zitat: von Gerd2018 Beitrag anzeigen

Habe eben noch einen Fehler gesehen.

Ein Fehler ist das nicht, sondern nur eine Formatierungssache...

Geänderter Code:

Code:

Sub nvloeschen()
Dim r As Long
Dim z As Long
    
'Letzte Zeile in Spalte A
z = Cells(Rows.Count, 1).End(xlUp).Row

'Spalte einfügen
Columns("B:B").Insert Shift:=xlToRight
 Range("B2").FormulaR1C1 = "Artikel-Nr."
'Spalte B als text formatieren, damit führende 0 angezeigt wird
 Range("B3:B" & z).NumberFormat = "@"

'Schleife über Spalte A ab A3 und Ergebnis in Spalte B eintragen
For r = 3 To z
    If Left(Range("A" & r), 2) = "K/" Then
        Range("B" & r) = "Kleinmaterial"
    Else
        Range("B" & r) = Mid(Range("A" & r), InStrRev(Range("A" & r), " ", , vbTextCompare) + 1)
    End If
Next
   

End Sub

__________________

Gruss Ralf
======================================
Bitte keine PN Anfragen - Hilfe erfolgt nur im Forum!
======================================
Vorsicht Beim Ausprobieren...
Auch Chaotischer Code Entwickelt Sich Ständig
1) Intel I5-2500K, 4x3,3 Ghz, 8GB RAM, Asus P8P67, 250GB SSD Toshiba Q-Pro, 1,5TB HD, MSI GTX550TI, Win7-Prof 64-bit SP1, Office 2010 Plus SP1
2) Asus Zenbook Flip UX360UAK-C4203T, 13,3 Zoll, i5-7200U, 2,5 Ghz, 8GB RAM, 256GB SSD, Win10 Home 64-bit, Office 2016 Plus
Scorefun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 24.10.2018, 08:00   #12
Gerd2018
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard Vba

Hallo Ralf,

DANKE, funktioniert sehr gut.

MFG Gerd
Gerd2018 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:07 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.