---

export.zip

Hallo.
Ich komm bei einem Makro nicht weiter.
Ich habe ein Tabellenblatt wo ich die Spalten, bis zur einer gewissen Spalte, wo in der 2. Reihe das Wort "Orig" steht löschen möchte.
Habe das file angehängt.

lg helmut

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ohne jetzt die Tabelle angesehen zu haben, Du kannst doch einfach die Spalten markieren und dann löschen ...
Oder möchtest Du etwas anderes machen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo.
das Ganze sollte ja automatisch ablaufen. Das Problem ist, dass die genannte Reihe immer an einer anderen Stelle steht.

MfG
Helmut

------------------
mfg schlathe

[Diese Nachricht wurde von schlathe am 20. Mrz. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Tastatureingabe: Strg+F - Orig - Enter. Dauert ca. 0,3 Sekunden.

Überflüssiges löschen: Dauert vielleicht 3 weitere Sekunden.

Wie lange schraubst Du schon am Makro  ?

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo.
Das makro für das Löschen der Zeilen ist ja nur ein Makro von vielen das Ablaufen sollte.
Wenn das Löschen nicht funktioniert, können die anderen Makros auch nicht ordnungsgemäß ausgeführt werden.

MfG
Helmut

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mal Quick & Dirty (nicht getestete) als Anregung:

Code:

---

for i = 1 to höchstmöglichespaltennummer
if cell(2,i).value = "Orig" then
range(colums(1),Colums(i)).select
selection.delete
exit for
end if
next

---

------------------
CAD.DE: Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de
Berufliches Umfeld: comsol.net; comsol.ch; Euromanagers

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Antwort.
Ich bekomme immer die Fehlermeldung " Fehler beim Kombilieren: Sub oder Function nicht definiert"
und er markiert die Zeile "If cell(i, 2).value= ......

Was kann da der Fehler sein?

MfG

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von schlathe:
Danke für die Antwort.
Ich bekomme immer die Fehlermeldung " Fehler beim Kombilieren: Sub oder Function nicht definiert"
und er markiert die Zeile "If cell(i, 2).value= ......

Was kann da der Fehler sein?

MfG

---

Hast Du "höchstmöglichespaltennummer" genau so übernommen oder da auch wirklich die höchstmögliche Spaltennummer eingesetzt? 

Grüße

Hofe

------------------
Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Der code :

Sub Spalte_loeschen()

Sheets("export").Select
Range("A2").Select
For i = 1 To 20
If cell(x, 2).Value = "Orig" Then
Range(Rows(1), Rows(i - 1)).Select
Selection.Delete
Exit For
End If
Next

End Sub

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es muss nicht "cell" heißen, sondern "cells".

Dann krichste aber den nächsten Fehler, weil "x" nicht deklariert ist.
Und "i-1" dürfte auch zu einem Fehler führen, denn das ergibt beim ersten Durchlauf Null, Spalte Null gibts nicht.

Grüße

Hofe

------------------
Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser!

[Diese Nachricht wurde von Hofe am 20. Mrz. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo.

Danke für den Tipp.
Jetztgibt es nur noch einen Fehler.
Er sucht den Wert in der Spalte 2 und nicht in der Reihe 2.
Wie kann ich das noch ändern?

ich weiß ich bin lästig  :-)

lg

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Versuchs mal so:

Sub Spalte_loeschen()

Sheets("Tabelle1").Select
Range("A2").Select
For i = 1 To 20
If Cells(i, 2).Value = "Orig" Then
Range(Rows(1), Rows(i - 1)).Select
Selection.Delete
Exit For
End If
Next

End Sub

Das mit "-1" war übrigens blödes Geschwätz von mir, es funktioniert 

Wenn der Wert "Orig" immer in Zeile 2 steht, dann kannst Du doch einfach generell die erste Zeile löschen, oder steh ich aufm Schlauch?

Ansonsten in der Zeile "If Cells(i, 2).Value = "Orig" Then" "i" und "2" vertauschen.

------------------
Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mappe2.zip

Hallo.

leider haut das bei mir nicht hin.
Ich hab dir das Datei mal hochgeladen.
Auf Blatt 1 hab ich den Bereich den ich löschen möchte mal rot markeirt und in Blatt 2 ist es so wie ich die Tabelle brauchen würde.

Vielen Dank schon im Voraus.

MfG
helmut

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1) wird eine Tabelle selektiert, die nicht vorhanden ist- Also ist Sheets("Tabelle1").Select und Range("A2").Select Unsinn
2) Willst Du Spalten löschen und nicht Zeilen (also Columns und nicht rows)

Code:

---

Sub Spalte_loeschen()

For i = 1 To 20
If Cells(2, i).Value = "Orig" Then
Range(Columns(1), Columns(i - 1)).Select
Selection.Delete
Exit For
End If
Next

End Sub

---

Funktioniert jetzt nur im aktiven Blatt

Axel

PS: Ein bisschen solltest Du Dich aber schon mit der Syntax auseinandersetzen und vielleicht mal die VB Hilfe zu Rate ziehen, damit Du siehst was gemacht wird.

------------------
CAD.DE: Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de
Berufliches Umfeld: comsol.net; comsol.ch; Euromanagers

[Diese Nachricht wurde von Axel.Strasser am 20. Mrz. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jupp, Axel sacht was Sache ist.
"Tabelle1" kam von mir, das hab ich auf die Schnelle in einer leeren Tabelle angepasst und beim posten nicht dran gedacht 

"A2" zu selektieren macht schönheitsmäßig schon Sinn, aber erst am Ende des Makros.

------------------
Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo.

Jetzt funktionierts einwandfrei.

Vielen vielen Danke

MfG
HElmut

------------------
mfg schlathe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey,
aus "pädagogischen" Gründen  (und um eine halbe Zeile Code zu sparen) ein Hinweis aufs Selektieren.

Damit würde

Code:

---

...
Range(Rows(1), Rows(i - 1)).Select
Selection.Delete
...
'--->
Range(Rows(1), Rows(i - 1)).Delete

---

Ungetestet.

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ein schöner Link und 100% einverstanden 

Axel

------------------
CAD.DE: Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de
Berufliches Umfeld: comsol.net; comsol.ch; Euromanagers

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP