Wer kann mir bei Excel helfen?

Diskutiere Wer kann mir bei Excel helfen? im Developer Network Forum im Bereich Hardware & Software Forum; HI! Ich habe folgendes Problem: Ich wollte mit D-Info Adressen herausfiltern und sie dann in Excel einbinden, nur findet D-Info zu einer Person...
  • Wer kann mir bei Excel helfen? Beitrag #1
Topsec

Topsec

Bekanntes Mitglied
Dabei seit
28.03.1999
Beiträge
233
Reaktionspunkte
0
HI!

Ich habe folgendes Problem:

Ich wollte mit D-Info Adressen herausfiltern und sie dann in Excel einbinden, nur findet D-Info zu einer Person manchmal mehrere Einträge.
Kann ich ein Makro in Excel schreiben das gleiche Straßen erkennt (die Straßen stehen in Spalte D) und dann die entsprechenden Zeilen automatisch markiert damit ich sie dann löschen kann?
Wie sieht so ein Makro aus oder wo gibt es im Netz einen Anlaufpunkt zum Makro lernen?

DAnke für eure Hilfe


CU Topsec
 
  • Wer kann mir bei Excel helfen? Beitrag #2
T

TT

Bekanntes Mitglied
Dabei seit
19.07.1999
Beiträge
3.789
Reaktionspunkte
0
Ort
einer anderen Welt
Welche Version von Excel verwendest du?
Bitte auch die Revision dazuschreiben, da z.B. Excel 5.0a und 5.0c etwas unterschiedlich sind.

Ab Excel 97 werden keine Makros mehr verwendet, sondern VB-Module.

TT
 
  • Wer kann mir bei Excel helfen? Beitrag #3
Topsec

Topsec

Bekanntes Mitglied
Dabei seit
28.03.1999
Beiträge
233
Reaktionspunkte
0
Hi TT!

Ich verwende das Excel von Office 2000.

CU Topsec
 
  • Wer kann mir bei Excel helfen? Beitrag #4
T

TT

Bekanntes Mitglied
Dabei seit
19.07.1999
Beiträge
3.789
Reaktionspunkte
0
Ort
einer anderen Welt
Dann ist es kein Makro mehr, sondern ein VB-Modul.

Das sollte ungefähr so aussehen:

Sub Filtern()
StreetForm.Show
Straße = StreetForm.TextBox1.Value
ActiveWindow.ActiveSheet.Activate
A = 1
While (Range("D" + Right$(Str$(A), Len(Str$(A)) - 1)).Value <> "")
If Range("D" + Right$(Str$(A), Len(Str$(A)) - 1)).Value <> Straße Then
Rows(Right$(Str$(A), Len(Str$(A)) - 1) + ":" + Right$(Str$(A), Len(Str$(A)) - 1)).Select
Selection.Delete Shift:=xlUp
A = A + 1
End If
Wend
End Sub

StreetForm ist ein Forumlar mit einem Input-feld (wo du die Straße reinschreibst, und einem OK-Button).
Dem Ok-Button ist folgender VB-Code hinterlegt:

Sub ....
StreetForm.hide
End Sub

Sollte eigentlich funktionieren.

TT
 
Thema:

Wer kann mir bei Excel helfen?

ANGEBOTE & SPONSOREN

https://www.mofapower.de/

Statistik des Forums

Themen
213.180
Beiträge
1.579.174
Mitglieder
55.879
Neuestes Mitglied
stonetreck
Oben