Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 192 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 189, 190, 191, 192, 193, 194, 195 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Wie kann man eine Tabelle automatisch gefiltert kopieren? 
Phelan XLPH

Antworten: 7
Aufrufe: 333

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:53   Titel: AW: Wie kann man eine Tabelle automatisch gefiltert kopieren Version: Office XP (2002)
Versuchs hiermit:

Sub erledigt()
With Sheets("aktuelle GZ")
If .AutoFilterMode Then .AutoFilterMode = False
With Intersect(.Range("A2").CurrentRegion, .Rows("2:" & Rows.Count))
.AutoFilter Field:=10, Criteria1:="erledigt"
.Offset(1).Copy Destination:=Worksheets("erledigt").Cells(Rows.Count, 1).End(xlUp).Offset(1)
.Offset(1).EntireRow.Delete
.AutoFilter
End With
End With
ThisWorkbook.Save
End Sub
  Thema: Einträge in ein externes Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 201

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:25   Titel: AW: Einträge in ein externes Programm Version: Office 2010
Ja, geht auch.
  Thema: Ausgeblendete Spalten nicht kopieren 
Phelan XLPH

Antworten: 16
Aufrufe: 1273

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:24   Titel: AW: Ausgeblendete Spalten nicht kopieren Version: Office 2003
Sub y()
Tabelle1.Columns("C:L").SpecialCells(xlCellTypeVisible).Copy
Tabelle2.Range("A1").PasteSpecial xlPasteValues
End Sub
  Thema: Ausgeblendete Spalten nicht kopieren 
Phelan XLPH

Antworten: 16
Aufrufe: 1273

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:21   Titel: AW: Ausgeblendete Spalten nicht kopieren Version: Office 2003
Klar funktioniert die Methode.

Hier als Makro in Kurzform:

Sub y()
Tabelle1.Columns("C:L").SpecialCells(xlCellTypeVisible).Copy Destination:=Tabelle2.Range("A1")
End Sub
  Thema: VBA Script zur Erstellung eines Links 
Phelan XLPH

Antworten: 21
Aufrufe: 729

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:08   Titel: AW: VBA Script zur Erstellung eines Links Version: Office 2003
Ist es immer der gleiche Pfad oder steht dieser in SpalteC?
  Thema: Brauche Programmierung von BWR Formeln 
Phelan XLPH

Antworten: 1
Aufrufe: 383

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 22:03   Titel: AW: Brauche Programmierung von BWR Formeln Version: OpenOffice/StarOffice
Klar bin dabei.

Schreib mir ne PN mit den Einzelheiten.
  Thema: VBA Makro zur Nummerierung von Zahlen 
Phelan XLPH

Antworten: 11
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 19:17   Titel: AW: VBA Makro zur Nummerierung von Zahlen Version: Office 2003
Korrektur
ar(i, 1) = ar(i, 1) *10 + dictCount(ar(i, 1)) + 1

EDIT OPTIMIERT

Sub OderSoOptimiert()
Dim dictCount As Object
Dim ar As Variant
Dim i As Long
Dim intMaxAnzStellen As Integer

Set dictCount = CreateObject("scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion.Columns(1)
ar = .Value2
For i = 1 To UBound(ar)
dictCount(ar(i, 1)) = dictCount(ar(i, 1)) + 1
If intMaxAnzStellen < Len(dictCount(ar(i, 1))) Then _
intMaxAnzStellen = Len(dictCount(ar(i, 1)))
Next
dictCount.RemoveAll
For i = 1 To UBound(ar)
dictCount(ar(i, 1)) = dictCount(ar(i, 1)) + 1
'ar(i, 1) = ar(i, 1 ...
  Thema: Fehler bei Combobox beladen 
Phelan XLPH

Antworten: 43
Aufrufe: 1100

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 18:25   Titel: AW: Fehler bei Combobox beladen Version: Office 2010
Beispiel:

.
.
.


cmbLandkreis.List = arTmp
cmbLandkreis.AddItem "Gesamt", 0
.
.
.
  Thema: Daten automatisch zuordnen und einpflegen lassen 
Phelan XLPH

Antworten: 15
Aufrufe: 681

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 18:12   Titel: AW: Daten automatisch zuordnen und einpflegen lassen Version: Office 2007
Dann vergleich mal nochmal dein beispiel.

M.E. ist es fehlerhaft.
Als Unterscheidungskriterium muss doch Kundnnummer UND ArtikelNr
herangezogen werden, oder nicht!?
  Thema: Einträge in ein externes Programm 
Phelan XLPH

Antworten: 10
Aufrufe: 201

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 18:08   Titel: Einträge in ein externes Programm Version: Office 2010
Hallo Isabelle,

wie schaffe ich es per VBA über einen Button den Text aus einer TextBox
in ein externes programm in ein Eingebefeld zu kopieren/übertragen?

Als externes Programm nehmen wir mal als Beispiel den Taschenrechner und
die StartSeite von Goggle.

Der Taschenrechner soll die Eingabe mit 5 multiplizieren.

Google soll nach Eintrag die Suche starten.

2 Beispiele - da ich wissen möchte ob es sich Unterschiede gibt.

Wie würde der Code aussehen?

Danke
  Thema: Daten automatisch zuordnen und einpflegen lassen 
Phelan XLPH

Antworten: 15
Aufrufe: 681

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 17:51   Titel: AW: Daten automatisch zuordnen und einpflegen lassen Version: Office 2007
Nu ist der Code in der zieldatei.
  Thema: Daten aus Zwischenablage in externes Programm einfügen 
Phelan XLPH

Antworten: 10
Aufrufe: 463

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 17:11   Titel: AW: Daten aus Zwischenablage in externes Programm einfügen Version: Office 2010
Ouuu Isabelle,

das würde mich auch interessieren.
  Thema: Automaische Sortierung ohne Eingabe 
Phelan XLPH

Antworten: 23
Aufrufe: 532

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 16:59   Titel: AW: Automaische Sortierung ohne Eingabe Version: Office 2003
Sag bloß, Zeile 2 ist eine Leerzeile!?
  Thema: Bedingte Formatierung 
Phelan XLPH

Antworten: 5
Aufrufe: 160

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 16:56   Titel: AW: Bedingte Formatierung Version: Office 2003
Ganz einfach:
=AND(A1<>"";A1<TODAY() )
  Thema: VBA Makro zur Nummerierung von Zahlen 
Phelan XLPH

Antworten: 11
Aufrufe: 218

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Jan 2012, 16:46   Titel: AW: VBA Makro zur Nummerierung von Zahlen Version: Office 2003
Als Makro:

Sub OderSo()
Dim dictCount As Object
Dim ar As Variant
Dim i As Long

Set dictCount = CreateObject("scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion.Columns(1)
ar = .Value2
For i = 1 To UBound(ar)
dictCount(ar(i, 1)) = dictCount(ar(i, 1)) + 1
ar(i, 1) = ar(i, 1) & dictCount(ar(i, 1)) + 1
Next
.Offset(, 1).Value2 = ar
End With
End Sub
 
Seite 192 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 189, 190, 191, 192, 193, 194, 195 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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