Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 218 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 215, 216, 217, 218, 219, 220, 221 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: kopieren von Zellen 
Phelan XLPH

Antworten: 4
Aufrufe: 129

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 10:43   Titel: AW: kopieren von Zellen Version: Office 2010
Sub xlph()
With Worksheets("Archiv")
.Range(.Range("P1").Text).Copy Destination:=.Range(.Range("K1").Cells(1).Text)
End With
End Sub
  Thema: Leere Elemente einer Matrix füllen 
Phelan XLPH

Antworten: 4
Aufrufe: 332

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 10:40   Titel: AW: Leere Elemente einer Matrix füllen Version: Office 97
Sub ph()
Dim rngLeer As Range

With Range("A1:D10") ' Anpassen ****************
If WorksheetFunction.CountA(.Cells) = .Count Then Exit Sub
Set rngLeer = .SpecialCells(xlCellTypeBlanks)
End With

rngLeer.Value = 0

MsgBox "...weitere Aktionen..."

rngLeer.Value = Empty

End Sub
  Thema: Kleines Makro modifizieren! 
Phelan XLPH

Antworten: 19
Aufrufe: 424

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 09:50   Titel: AW: Kleines Makro modifizieren! Version: Office 2010
hallo felix,

Sub So()
Dim objKiWS As Worksheet
Dim lastRow As Long
Dim objCell As Range

Set objKiWS = ActiveWorkbook.Worksheets("Beispiel")

objKiWS.Activate

For Each objCell In objKiWS.Range("B:B")
If objCell.Text = "Stop" Then Exit For
Next
lastRow = objCell.Row - 1

MsgBox lastRow
End Sub
Sub OhneSchleife()
Dim lastRow As Long
Dim rngF As Range

With ActiveWorkbook.Worksheets("Beispiel")
Set rngF = Range("B:B").Find("Stop", , xlValues, xlWhole)
If Not rngF Is Nothing Then
lastRow = rngF.Row - 1
End If
End With

MsgBox lastRow
End Sub
  Thema: Excel Horror 
Phelan XLPH

Antworten: 22
Aufrufe: 562

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 01:11   Titel: AW: Excel Horror Version: Office 2007
...irgendwie versteh ich das ganze nicht Mad ...morgen wieder, good night.
  Thema: optimale zahlenkombination auswählen 
Phelan XLPH

Antworten: 9
Aufrufe: 379

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 01:09   Titel: AW: optimale zahlenkombination auswählen Version: Office 2007
@ heinz Laughing Laughing ...auf sowas muss man erstmal kommen Confused Very Happy Laughing
  Thema: Excel Horror 
Phelan XLPH

Antworten: 22
Aufrufe: 562

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 00:58   Titel: AW: Excel Horror Version: Office 2007
Sub Konsolidieren_Unikate()
Dim i As Long
Dim k As Integer
Dim Dic As Object
Dim ar As Variant
Dim ws As Worksheet
Dim wb As Workbook
Dim vDateiPfad As Variant

Set Dic = CreateObject("Scripting.Dictionary")

vDateiPfad = Application.GetOpenFilename("Excel Dateien (*.xls*), *.xls*", MultiSelect:=True)
If Not IsArray(vDateiPfad) Then Exit Sub

For k = 1 To UBound(vDateiPfad)
With Workbooks.Open(vDateiPfad(k), 0)
For Each ws In .Worksheets
With ws
If Not IsEmpty(.UsedRange) Then
ar = .Range("A1:C" & .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row)
For i = 1 To UBound(ar)
...
  Thema: Excel Horror 
Phelan XLPH

Antworten: 22
Aufrufe: 562

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 00:43   Titel: AW: Excel Horror Version: Office 2007
Also sind B und D nicht wichtig. Du brauchst nur die Unikate von K?
  Thema: Excel Horror 
Phelan XLPH

Antworten: 22
Aufrufe: 562

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Dez 2011, 00:22   Titel: AW: Excel Horror Version: Office 2007
Es werden also je KUNDENNAME die Informationen DATUM und BEGRÜNDUNG ergänzt, ausgetauscht oder neu erstellt

Woher weiß ich denn welcher Datensatz als Quelle dienen soll und welcher als Ziel?

Bsp:

K=Kundenname
D=Datum
B=Begründung

K1 B1 D1
K2 B1 D2
K2 B2 D2
K1 -- --

Was ist jetzt Quelle und was Ziel ???????????
  Thema: Einfügen einer Leerzeile, sobald gleicher wert gefunden wird 
Phelan XLPH

Antworten: 4
Aufrufe: 190

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 23:11   Titel: AW: Einfügen einer Leerzeile, sobald gleicher wert gefunden Version: Office 2007
Sub Vergleich()
Dim ar As Variant
Dim arTmp As Variant
Dim i As Long
Dim n As Long
Dim vgl As Object

Set vgl = CreateObject("scripting.dictionary")

ar = Tabelle1.Range("A1").CurrentRegion

For i = 1 To UBound(ar)
vgl(ar(i, 1)) = 0
Next

ar = Tabelle2.Range("A1").CurrentRegion

ReDim arTmp(1 To 2, 1 To UBound(ar))

For i = 1 To UBound(ar)
If vgl.exists(ar(i, 2)) Then
n = n + 1
arTmp(1, n) = ar(i, 2)
arTmp(2, n) = ar(i, 3)
End If
Next
ReDim Preserve arTmp(1 To 2, 1 To n)

Worksheets.Add.Range("A1").Resize(UBound(arTmp, 2), UBound(arTmp)) = _
WorksheetFunction.Transpose(arTmp&# ...
  Thema: Durch eine Hyperlink Makro ausführen, Spalten ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 321

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 21:17   Titel: AW: Durch eine Hyperlink Makro ausführen, Spalten ausblenden Version: Office 2003
Das doch keine so gute Lösung, denn man könnte mehrerer Hyperlinks
mit dem gleichen Namen versehen.

Nimm folgenden Code. Der fragt die Zell-Adresse der Zelle, in welchem sich
der HyperLink befindet, ab. Bsp: 1. Link in Zelle "A4", 2. in "A6"

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.Range.Address(0, 0)
Case "A4"
With Columns("C:F")
.Hidden = Not .Hidden
End With
Case "A6"
With Columns("H:N")
.Hidden = Not .Hidden
End With
End Select
End Sub
  Thema: Durch eine Hyperlink Makro ausführen, Spalten ausblenden 
Phelan XLPH

Antworten: 4
Aufrufe: 321

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 21:01   Titel: AW: Durch eine Hyperlink Makro ausführen, Spalten ausblenden Version: Office 2003
Hallo,

Abfrage nach dem anzuzeigenden Text des Hyperlinks:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.Name
Case "Test1"
With Columns("C:F")
.Hidden = Not .Hidden
End With
Case "Test2"
With Columns("H:N")
.Hidden = Not .Hidden
End With
End Select
End Sub
  Thema: Prozent Schieberegler in Userform 
Phelan XLPH

Antworten: 4
Aufrufe: 1017

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 19:51   Titel: AW: Prozent Schieberegler in Userform Version: Office 2007
Hier eine Möglichkeit mit einer Scrollbar.

War etwas hartnäckig.
  Thema: Doppelte Einträge farbig markieren 
Phelan XLPH

Antworten: 98
Aufrufe: 117145

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 18:14   Titel: AW: Doppelte Einträge farbig markieren
...da liegst du falsch.
  Thema: Doppelte Einträge farbig markieren 
Phelan XLPH

Antworten: 98
Aufrufe: 117145

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 15:00   Titel: AW: Doppelte Einträge farbig markieren
wo (Zell-Adresse) fangen denn die Daten an?
  Thema: 2 Codes verbinden 
Phelan XLPH

Antworten: 4
Aufrufe: 188

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Dez 2011, 14:57   Titel: AW: 2 Codes verbinden Version: Office 2007
M. E. reicht das hier schon aus:

Sub Test()
Dim lngLZ As Long
Dim lngLS As Long

lngLZ = LetzteZeileSpalte(Selection, True, True)
lngLS = LetzteZeileSpalte(Selection, False, True)

MsgBox IIf(lngLZ = 0, "Bereich Leer!", "Zeile: " & lngLZ), , "Letzte Zeile Sichtbar"
MsgBox IIf(lngLS = 0, "Bereich Leer!", "Spalte: " & lngLS), , "Letzte Spalte Sichtbar"

lngLZ = LetzteZeileSpalte(Selection, True, False)
lngLS = LetzteZeileSpalte(Selection, False, False)

MsgBox IIf(lngLZ = 0, "Bereich Leer!", "Zeile: " & lngLZ), , "Letzte Zeile Un-/Sichtbar"
MsgBox IIf(lngLS = 0, "Bereich Leer!", "Spalte: " & lngLS), , "Letzte Spalte Un-/Sichtbar"

End Sub

Function LetzteZeileSpalte(objRange As Range ...
 
Seite 218 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 215, 216, 217, 218, 219, 220, 221 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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