Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 182 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 179, 180, 181, 182, 183, 184, 185 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Spalte Zahlen formatieren 
Phelan XLPH

Antworten: 9
Aufrufe: 164

BeitragForum: Excel VBA (Makros)   Verfasst am: 11. Feb 2012, 13:34   Titel: AW: Spalte Zahlen formatieren Version: Office 2007
Function DreierKombi(Zelle, Trenner)
Dim s As String
Dim i As Long

s = Trim(Zelle.Text)

For i = 1 To Len(s)
If i Mod 3 = 1 Then DreierKombi = DreierKombi & Trenner
DreierKombi = DreierKombi & Mid(s, i, 1)
Next
End Function
  Thema: Zelleninhalte und deren Zeilen in zweidimensionales Array 
Phelan XLPH

Antworten: 3
Aufrufe: 249

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 22:15   Titel: AW: Zelleninhalte und deren Zeilen in zweidimensionales Arra Version: Office 2007
Das geht nicht.

Abgesehen davon die Zeile kannst du über die Array-Indizes ermitteln.
  Thema: Werte in Array einlesen?? 
Phelan XLPH

Antworten: 20
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 21:41   Titel: AW: Werte in Array einlesen?? Version: Office 2010
schmeiß das "ze" raus.
  Thema: Werte in Array einlesen?? 
Phelan XLPH

Antworten: 20
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 20:15   Titel: AW: Werte in Array einlesen?? Version: Office 2010
mit 2 Codezeilen

...das möchte ich sehen!
  Thema: Werte in Array einlesen?? 
Phelan XLPH

Antworten: 20
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 20:01   Titel: AW: Werte in Array einlesen?? Version: Office 2010
Sub Test_Unikate()
Dim ar As Variant
ar = Tabelle2.Cells(1).CurrentRegion.Columns(1)
ar = Unikate(ar)
MsgBox Join(ar, vbCrLf), , "Unikate"
End Sub

Function Unikate(ar)
Dim i As Long
Dim D As Object
Set D = CreateObject("scripting.dictionary")
For i = 1 To UBound(ar)
D(ar(i, 1)) = 0
Next
Unikate = D.Keys
End Function
  Thema: Werte in Array einlesen?? 
Phelan XLPH

Antworten: 20
Aufrufe: 1061

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 19:41   Titel: AW: Werte in Array einlesen?? Version: Office 2010
Meinst du die Unikate?
  Thema: Dim über mehrere Sub 
Phelan XLPH

Antworten: 1
Aufrufe: 353

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 16:17   Titel: AW: Dim über mehrere Sub Version: Office 2010
Du kannst es in eine Funktion auslagern. Dann rufst du jeweils nur die Funktion auf.

Sub Test()
Dim tmp As Variant

tmp = LetzteZeile(Tabelle1, 1)
MsgBox tmp, , "Tabelle1"

tmp = LetzteZeile(Tabelle2, 2)
MsgBox tmp, , "Tabelle2"

tmp = LetzteZeile(Tabelle3, 3)
MsgBox tmp, , "Tabelle3"

End Sub

Function LetzteZeile(WS As Worksheet, spalte As Integer)
LetzteZeile = WS.Cells(WS.Rows.Count, spalte).End(xlUp).Row
End Function
  Thema: Masterquelle aus mehreren Einzelquellen per VBA 
Phelan XLPH

Antworten: 4
Aufrufe: 116

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 15:40   Titel: AW: Masterquelle aus mehreren Einzelquellen per VBA Version: Office 97
aus jeder einzelnen möchte ich praktisch mit einem Knopfdruck ein Blatt auslesen

Welches, das 1.? Oder hat es einen bestimmten Namen?!
  Thema: suche nach Doppelte 
Phelan XLPH

Antworten: 6
Aufrufe: 212

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 15:37   Titel: AW: suche nach Doppelte Version: Office 2003
@Daniel

das sollte unter Tips & Tricks aufgenommen werden.

Dann müsstest du den selben Text nicht immer wieder schreiben.
  Thema: VBA Text suchen 
Phelan XLPH

Antworten: 21
Aufrufe: 4288

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 15:10   Titel: AW: VBA Text suchen Version: Office 2010
Hier ein Beispiel über eine UDF (selbstdefinierte Funkltion).

In ein StandardModul kopieren (bsp: Modul1).

Function SuchenExtract(Bereich As Range, Gruppe As String, SuchMuster As String)
Dim v As Variant
Dim a As Variant
Dim tmp As Variant
Dim blnGruppe As Boolean

v = Intersect(Bereich, ActiveSheet.UsedRange)

For Each a In v
If a = Gruppe Or blnGruppe Then
blnGruppe = True
If a Like SuchMuster Then
tmp = Split(SuchMuster, "*")
If UBound(tmp) > 0 Then
SuchenExtract = Replace(Replace(a, tmp(0), ""), tmp(1), "")
End If
Exit Function
End If
End If
Next
End Function

Bsp Funktions-Aufruf siehe Bild.
  Thema: VBA Text suchen 
Phelan XLPH

Antworten: 21
Aufrufe: 4288

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 14:40   Titel: AW: VBA Text suchen Version: Office 2010
Eine Variante wäre: 2 verschachtelte Schleifen:

Äußere Schleife: Such nach der Gruppe
Innere Schleife: Such nach dem Element + Extraction des gewünschten Textes
  Thema: VBA Text suchen 
Phelan XLPH

Antworten: 21
Aufrufe: 4288

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 14:34   Titel: AW: VBA Text suchen Version: Office 2010
Grad das macht die Find-Methode. Sie gibt das Objekt zurück, also die Zelle
des Fundes.

Daniels Code:

Dim Zelle as Range
Dim DeinTest as String
Set Zelle = Cells.Find(What:="LIN+1++*:Z01", lookat:=xlwhole)
if Not Zelle Is Nothing then DeinText = Zelle.Value
  Thema: VBA Text suchen 
Phelan XLPH

Antworten: 21
Aufrufe: 4288

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 14:31   Titel: AW: VBA Text suchen Version: Office 2010
Also Bitte, was ist denn daran nicht zu verstehen.

Wenn er den Code ausgeführt hätte, hätte er das gewollte Ergebnis.

Der Rest erschließt sich aus dem Code.
Ganz unwissend erscheint er mir auch nicht, um diesen nicht zu verstehen.

Was die einzelnen Funktionen machen, kann man in der Hilfe nachlesen.

Ich bin keine Lehrer sondern Hilfesteller.
  Thema: Masterquelle aus mehreren Einzelquellen per VBA 
Phelan XLPH

Antworten: 4
Aufrufe: 116

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 14:12   Titel: AW: Masterquelle aus mehreren Einzelquellen per VBA Version: Office 97
.... 13 Dateien ca.

Du meinst 13Blätter in der Datei/Mappe?! Oder?
  Thema: VBA Text suchen 
Phelan XLPH

Antworten: 21
Aufrufe: 4288

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Feb 2012, 14:09   Titel: AW: VBA Text suchen Version: Office 2010
Ihr seid mal witzig, das habe ich zu Anfang bereits beschrieben. Rolling Eyes
 
Seite 182 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 179, 180, 181, 182, 183, 184, 185 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript