 Menü
 An- und Abmelden
 Partner / Links
|
Diese Sektion erlaubt es dir alle Beiträge dieses Mitglieds zu sehen. Beachte, dass du nur solche Beiträge sehen kannst, zu denen du auch Zugriffsrechte hast.
Nachrichten - lexipator
Seiten: [1]
1
« am: Juli 27, 2016, 11:30:51 Vormittag »
niemand eine Idee?
2
« am: Juni 29, 2016, 11:49:46 Vormittag »
Hey,
ich bin, was Makros o.ä. angeht, blutiger Anfänger.
Ich habe mir aus dem Internet ein Such-Makro für nen Button rausgesucht, funktioniert auch super, aber:
Ich würde es gern nur eine Spalte (D) eines Blattes durchsuchen lassen, anstatt die ganze Tabelle, da die gesuchten Werte auch an anderer, unwichtiger Stelle auftreten können.
Kann mir wer helfen?
Danke!
Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean
GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Search In All Tables", SSearch)
If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
GFound = True
ws.Select
c.Select
firstAddress = c.Address
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbYes Then
Do
Set c = .FindNext(c)
secAddress = c.Address
If c.Address = firstAddress Then
Exit Do
End If
c.Select
If MsgBox("Weitersuchen ?", vbQuestion + vbYesNo) = vbNo Then
GWeiter = True
GoTo ende
End If
Loop While Not c Is Nothing And secAddress <> firstAddress And c.Address <> firstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws
ende:
If GFound = False Then
If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then
GoTo anf:
End If
Else
If GWeiter = False Then
If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYes Then
GoTo weiter
End If
End If
End If
End Sub
3
« am: Juni 29, 2016, 11:46:03 Vormittag »
super, das hat geklappt, danke!
4
« am: Juni 23, 2016, 14:42:49 Nachmittag »
... was hoffentlich den letzten Ausweg darstellt. Wäre aufgrund der Struktur & dem Umfang der Tabelle nicht so praktisch.
Liegt es irgendwie daran dass es ein Excel-Dokument mit Makros (also xlsm) ist? Oder an der Version (excel für mac 2011)?
Falls noch jemand eine Idee hat ist die sehr willkommen.
5
« am: Juni 23, 2016, 14:25:40 Nachmittag »
im anhang eine beispieltabelle mit dem problem, hier bei INTERN F12 zu EXTERN D9 - und hier ist die Grenze bei 256 Zeichen - also irgendwo nur 8 bit möglich?
6
« am: Juni 23, 2016, 14:06:14 Nachmittag »
hey. angepasst ist es natürlich, auch an einen komplett anderen Bereich.
Was aber anscheinend das Problem ist: Sobald in der Referenz mehr als 252 (?) Zeichen stehen, wird es nicht übertragen bzw. mit dem Fehlerwert ausgegeben
7
« am: Juni 23, 2016, 13:58:57 Nachmittag »
abgeändert zu
=WENNFEHLER(INDEX(TEXT(INTERN!C$7:C$12;);AGGREGAT(15;6;ZEILE($7:$12)-6/(INTERN!$H$7:$H$12="ja");ZEILE(A1)));"")
es ist allerdings eine neue Frage aufgekommen.
Kann es sein dass irgendwas in der Funktion nicht mit langen Einträgen klarkommt?
Ab einer bestimmten Länge des Textes in der zu übernehmenden Spalte (Hier also C7-C12) wird nichts ausgegeben.
8
« am: Juni 16, 2016, 09:54:06 Vormittag »
hat sich erledigt, selbst gelöst 
9
« am: Juni 15, 2016, 14:35:02 Nachmittag »
Danke!
Die Formel klappt super, eine kleine Frage hätte ich aber noch: insb. bei den Titeln gibt es einige Leerstellen, wie bewerkstellige ich es, dass dort keine "0" bei fehlendem Wert angezeigt wird?
Die anderen beiden Lösungen muss ich mir noch einmal genauer anschauen.
10
« am: Juni 09, 2016, 14:42:57 Nachmittag »
stimmt... hier eine excel-tabelle
11
« am: Juni 09, 2016, 14:20:08 Nachmittag »
Hallo,
ich habe folgendes Problem:
Ich habe eine Excel-Datei, die sich a. in ein Blatt mit internen Angaben und b. in ein Blatt mit aus a. herausgeholten Informationen für extern untergliedert bzw. untergliedern soll.
Im Blatt a. ist es so, dass in einer Spalte definiert ist, ob der Eintrag bzw. Teile des Eintrags in die externe Liste übertragen werden sollen, also ein Dropdown-Menü mit ja/nein/Infos fehlen.
Der Aufbau ist quasi wie im Anhang aufgebaut. Alle Angaben sind jeweils Textangaben, keine Nummern. Ich habe einige mögliche Lösungen im Internet gefunden, aber Probleme gehabt sie auf das konkrete Beispiel umzumünzen bzw habe die Übersicht verloren, bin selbst auch kein Experte mit Excel. Sortieren und/oder Hilfsspalten in einer der Tabellen einzufügen wäre auch eher ungünstig.
Über Hilfe bin ich sehr dankbar!
Seiten: [1]
|
Beiträge anzeigen