Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 268 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 265, 266, 267, 268, 269, 270, 271 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: In ISBN-Nummer Bindestriche einfügen 
Phelan XLPH

Antworten: 10
Aufrufe: 1039

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 14:41   Titel: AW: In ISBN-Nummer Bindestriche einfügen Version: Office 2003
Er erkennt es sogar (die Bindestriche werden mitkopiert) wenn ich es in eine Texdatei
kopiere.

Hätte ich nicht gedacht, wieso eigentlich?
  Thema: Informationen aus ComboBox an EXCEL übergeben 
Phelan XLPH

Antworten: 6
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 14:34   Titel: AW: Informationen aus ComboBox an EXCEL übergeben Version: Office 2007
Nimm das hinzu:

Private Sub ComboBox3_Change()
Range("J1").Value = ComboBox1.Value
Range("K1").Value = IIf(ComboBox1.Value <> "HAAS", ComboBox2.Value, Empty)
Range("L1").Value = ComboBox3.Value
End Sub
  Thema: Suchfunktion über Userform 
Phelan XLPH

Antworten: 48
Aufrufe: 3064

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 14:17   Titel: AW: Suchfunktion über Userform Version: Office 2003
Durch Umschreiben des Codes hatte ich es zwar schon geschafft, dass die ComboBoxes richtig befüllt werden,

Nicht ganz. Du hast nur die erste Spalte berücksichtigt.
  Thema: Bereiche zweier Tabellen vergleichen und berechnen 
Phelan XLPH

Antworten: 13
Aufrufe: 248

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:41   Titel: AW: Bereiche zweier Tabellen vergleichen und berechnen Version: Office 2003
Die Erweiterung:

Sub Vergleich()
Dim arQ As Variant
Dim arZ As Variant
Dim sVgl As String
Dim i As Long
Dim k As Integer
Dim oVGL As Object
Dim ws As Worksheet

Set oVGL = CreateObject("Scripting.Dictionary")


For Each ws In ThisWorkbook.Worksheets
If ws Is Worksheets(Worksheets.Count) Then Exit Sub

arQ = ws.UsedRange

With ws.Next

arZ = .UsedRange

For i = 1 To UBound(arQ)
sVgl = ""
For k = 1 To 3
sVgl = sVgl & "|" & arQ(i, k)
Next
oVGL(sVgl) = i
Next

For i = 1 To UBound(arZ)
sVgl = ""
For k = 1 To 3
sVgl = sVgl & "|" & arZ(i, k)
Next
If oVGL.exists(sVgl) Then ...
  Thema: Fehlermeldung bei Code ... (Range.Select) 
Phelan XLPH

Antworten: 6
Aufrufe: 363

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:30   Titel: AW: Fehlermeldung bei Code ... (Range.Select) Version: Office 2010
entweder so:
Sheets("Auswertung").Select
Sheets("Auswertung").Range("A1").Select
oder so:
Application.Goto Sheets("Auswertung").Range("A1")
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:17   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
hast du auch den oberen code genommen?
  Thema: Informationen aus ComboBox an EXCEL übergeben 
Phelan XLPH

Antworten: 6
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:16   Titel: AW: Informationen aus ComboBox an EXCEL übergeben Version: Office 2007
ComboBox1.Value
Steht hier eine Bereichs-Adresse als String drin
  Thema: Fehlermeldung bei Code ... (Range.Select) 
Phelan XLPH

Antworten: 6
Aufrufe: 363

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:14   Titel: AW: Fehlermeldung bei Code ... (Range.Select) Version: Office 2010
Sheets("Auswertung").Select
Range("A1").Select
  Thema: Bereiche zweier Tabellen vergleichen und berechnen 
Phelan XLPH

Antworten: 13
Aufrufe: 248

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 13:09   Titel: AW: Bereiche zweier Tabellen vergleichen und berechnen Version: Office 2003
Hallo,

wnn VP nur einmal vorkommt dann würde das doch eigentlich als kriterium
reichen. Hab dennoch alle 3 Spalten genommen.

Sub Vergleich()
Dim arQ As Variant
Dim arZ As Variant
Dim sVgl As String
Dim i As Long
Dim k As Integer
Dim oVGL As Object

Set oVGL = CreateObject("Scripting.Dictionary")

arQ = Tabelle1.UsedRange

With Tabelle2

arZ = .UsedRange

For i = 1 To UBound(arQ)
sVgl = ""
For k = 1 To 3
sVgl = sVgl & "|" & arQ(i, k)
Next
oVGL(sVgl) = i
Next

For i = 1 To UBound(arZ)
sVgl = ""
For k = 1 To 3
sVgl = sVgl & "|" & arZ(i, k)
Next
If oVGL.exists(sVgl) Then
If arZ(i, 4) <> arQ(oVGL(sVgl), 4) Then .Cel ...
  Thema: Makro für alle Excel-Dateien auf dem Computer 
Phelan XLPH

Antworten: 4
Aufrufe: 509

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:42   Titel: AW: Makro für alle Excel-Dateien auf dem Computer Version: Office 2007
Meinst du das im Ernst?
Smile JAAAAA!

Mein excel hat nen Schaden, da wusst ich jetzt nicht mehr ob
das an dem Schaden liegt. Musss jedesmal neu einbinden.

Jetzt ist es gewiss.

Danke.
  Thema: Informationen aus ComboBox an EXCEL übergeben 
Phelan XLPH

Antworten: 6
Aufrufe: 535

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:38   Titel: AW: Informationen aus ComboBox an EXCEL übergeben Version: Office 2007
Hallo LB,

was versuchst du in diesen 2 Zeilen:

ComboBox2.RowSource = ComboBox1.Value
Worksheets(1).Cells(50, 3) = ComboBox2.RowSource
  Thema: Makro für alle Excel-Dateien auf dem Computer 
Phelan XLPH

Antworten: 4
Aufrufe: 509

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:32   Titel: AW: Makro für alle Excel-Dateien auf dem Computer Version: Office 2007
@Eto

Wenn ich das ADDIn einbinde, ist die Einbindung Mappen-bezogen oder
auf dei Excel-Anwendeung.

Anders gefragt: Muss die Einbindung in jeder neuen (alten )Mappe durchgeführt
werden.
  Thema: Zelle farblich nicht markieren 
Phelan XLPH

Antworten: 4
Aufrufe: 178

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:25   Titel: AW: Zelle farblich nicht markieren Version: Office 2003
Du meinst türkis!

Bei mir funktionierts. Das blöde ist, dass wenn eine Zelle bereits
farblich markiert ist das bei der deaktivierung der Zelle der Hintergrund
farblos ist. hast du vielleicht das gemient?

EDIT:Ach ne das funktioniert auch.
  Thema: lernsoftware 
Phelan XLPH

Antworten: 2
Aufrufe: 131

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:12   Titel: AW: lernsoftware Version: Office 2003
Wer schreibt der bleibt: [url=ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf]VBA – Programmierung mit Excel Grundlagen
  Thema: VBA Textsuche in Matrix 
Phelan XLPH

Antworten: 41
Aufrufe: 1765

BeitragForum: Excel VBA (Makros)   Verfasst am: 08. Apr 2011, 12:04   Titel: AW: VBA Textsuche in Matrix Version: Office 2007
Hallo,

Ersetze das:
ReDim arErg(1 To UBound(arS), 1 To 1)
durch das:
arErg = arS
 
Seite 268 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 265, 266, 267, 268, 269, 270, 271 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln